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Probamos un sensacional 
pr0grama para creación de 
dibuJos y gráficos, que convierte 
al Amstrad CPC en un artista 
inteli"cnte al al< 100 de todo el 
mundo, a golpe de joystick o 
ratón. No e
 imprescindible 
po LOnoClmientos de dibuJo. 
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La herramienta que hacía falta 
para obtener «hardcopys» de 
cualquier cosa en todas las 
impresoras, analizada en 
profundidad por AMSTRAD 
Semanal. 
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La película más famosa de 
Spielberg, recreada byte a byte n 
la pantalla del Amstrad con 
sorprendente acierto. inclUidas 
toda una serie de ideas y trucos 
para jugar mejor el) nuestro 
comentario del juego. 
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N """m d;Mnda .xp«"ffl£ia " ,/ mami" d, """mi",, Am,trad 
durante muchas IlQTas carIa día, nos Il£l llevado a la wnclu:Úón de que ,icmpre 
se plantean los mismos pmbb)mas en .w uso
 E., deÚr, exÚten una "erie de 
dij-i'cultadeJ
 típicas, y para cada uTla de ellas hay una fOluÚán práctica que 
'obvia el prohlema, De este tema trata nuestro tema principal de portada. v 
e,tamos seguros de que su lectura resultará útil a todOJ los usuario.!, 
espeáalmente a /()s qUf empiezan. También pam todos los usuarios, .1m 
excepción, está pensando "Art Studio". Se trata del programa rnár imprerionante 
que hemos visto para crear dibujos y todo tipo de gr4ficos en un Amstrad 
cpc. Lo más espectacular es su manejo: todo a base de joystick o ratón; el 
teclado, para este programa, se muestra como algo completamente obsoleto. En 
nuestra sección df "Alundo del CPC" analizamos esta semana un programa 
llamado" Tascopy", que perrmte volcar en papel de impresora la pantalla de! 
Amstrad en cualquier momeTlto
 Su característica más útil estriba en que 
funciona COn prácticamente lodas las impresoras del mercado. 
Lo., programadores ávidos de buenos lenguajes, sin duda encontrarán útil la 
prueba del "Hisift Pascal", el comPilador de Pascal más fácil dr usar qur 
hemos visto nunca, con gráficos de tortuga incluidos. Continuamos con e! 
programa de facturación para e! PCW, que junto con nuestraJ seccwne:. de 
"lnJobytes" y «,<;'-'erie Orw>, cierra e! contenido del prcsente número. 
Una cosa más;' no se pierda el análisis deljuego "Los Goon , ie.l}} baJ{1do en 
e! popular film rk S,'pielberg. J1erece la pena. 
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Guía del lector: 
Soluciones prácticas 
a los problemas típicos 


Nuestra dilatada experiencia con los ordenadores Amstrad nos ha hecho descubrir 
todo un cúmulo de difi"cultades y problemas a los que el usuario debe hacer frente 
que podríarrws llamar típicos, porque se repiten una y otra vez a lo largo de todas 
las máquinas de la gama. Resultan especialmente frustrantes cuando la persona que 
se enfrenta a la máquina entra dentro de la nebulosa categoría de usuario novel. 
Várrws a tratar de enumerar los más característicos, y de ofrecer soluciones para 
obviarlos, en un intento de resolver dificultades a todo el mundo, novel o na 


e in'as que no funcionan, discos de 
reputación intachable que de pronto se sueltan el 
pelo, negándose a cargar programas escritos en 
Basic compatible con el CPC 464 y el 6128 que 
corren en el primero, pero en el segundo no... 


La serie de catástrofes que laceran las horas 
de supuesto entrenamiento y «trabajo 
productivo" del usuario, en su trato diario con 
un Amstrad, podrían compendiarse en forma de 
lista lo bastante larga para cubrir de oprobio a 
las «páginas amarillas". Lo más característico, y 
desagradable, de estas calamidades es que 
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golpean de improviso, como la furia divina, y la 
mayoría de las veces no suceden por culpa del 
usuario, ni siquiera del ordenador. Más bien 
tiene lugar un malentendido entre ambos. 
Por ejemplo, la cinta conteniendo nuestro 
juego favorito, a la que hemos seguido la pista 
como un sabueso desde que se rumoreó su 
pronta salida al mercado, tras colocada con 
manos trémulas en el cassette..., no carga. 
Imagínense el cuadro. La ilusión 
transformándose en ira, las caras llorosas de los 
niños. Desolador. Naturalmente, para escarbar 
más en la herida, el resto de las cintas 
conteniendo programas hechos por nosotros, o 
incluso otros comerciales, sí que cargan: a la 
perfección, varias veces. Docenas de veces. 
En ocasiones, basta una rápida visita al 
comercio donde adquirimos el programa para 
arreglar las cosas. El prurito profesional y una 
cara de pocos amigos obran milagros en los 
vendedores más endurecidos. No obstante, lo 
peor viene cuando nuestro comerciante prueba 
la cinta en su ordenador..., y carga 
perfectamente. Su sonriente cara de se lo dije nos 
pasa por encima como una apisonadora. Por 
supuesto que se ofrece de inmediato a 
cambiarnos la copia de la cinta por otra nueva, 
pero indicando, como de pasada, que vamos a 
enfrentarnos con el mismo problema. Y, de 
nuevo en casa, la ominosa profecía se cumple: 
tampoco carga. ¿Qué hacer? Bien, la solución es 
bastante simple. A estas alturas, es evidente que 
la malhadada cinta está bien grabada y carece 
de defectos visibles. Lo único que hay que hacer 
para solucionar nuestro problema es..., ajustar 
el azimut del cassette. 
Me explico. El mecanismo de lectura-escritura 
en una cinta es de una claridad meridiana: 
existen dos ejes que la arrastran hacia adelante 
o hacia atrás, donde encajan los orificios que 
tienen todas las cintas. Perpendicular a ellos, se 
encuentra la «madre del mordero»: el cabezal de 
lectura-escritura. 
Teóricamente, se encuentra a la misma altura 
en todos los ordenadores Amstrad, pero sólo 
teóricamente. En realidad, existen pequeñas 
diferencias de ordenador a ordenador y, cuando 
una casa de software graba una cinta de 
cassette, lógicamente lo hace pensando en que el 
cabezal de lectura-escritura se encuentra a la 
altura correcta, usando como piedra de toque una 
máquina perfectameJ¡te calibrada. 
Si el cabezal de lectura-escritura se encuentra 
demasiado alto o demasiado bajo, el programa 
no cargará con corrección, y aparecerá toda una 
caterva de errores enigmáticos del tipo «Read 
error b», o algo parecido. Este tipo de cosas 
pueden sucedede perfectamente con el uso, 
aunque no pasará en todos los ordenadores; sólo 
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en algunos, y, por desgracia, no hay forma de 
averiguado al comprar. 
Por tanto, si su ordenador se desvía 
demasiado de lo previsto, tendrá problemas, 
pero sólo con algunas cintas, aquéllas cuya 
tolerari'cia sea en extremo crítica. No con las 
que usted mismo haya grabado, por supuesto. 
En cualquier caso, la solución es sencilla, 
aunque tediosa. Hacia la parte central del 
cassette del 484, verá un orificio por el que cabe 
justo un pequeño destornillador. Sirve para 
variar la altura del cabezal, es decir, ajustar el 
azimut. Por el antiguo método de «prueba y 
error», variando la altura del cabezal e 
intentando cargar el programa, conseguirá sin la 
menor duda jugar a ese juego que tanto ha 
estado esperando, o usar su aplicación de 
gestión casera favorita, o introducirse en los 
o.,.apasionantes vericueto s de ese nuevo lenguaje 
que va a abride las puertas de la programación. 


Todos los usuarios se enfrentan a las 
mismas dificultades típicas, que poseen 
soluciones clásicas 


En cualquier caso, nuestra experiencia con los 
Amstrad ha demostrado que este tipo de 
problemas suceden sólo de tarde en tarde, en 
especial con programas comerciales que emplean 
métodos de carga o protecciones relativamente 
esotéricas, que afectan a la velocidad de carga, 
tales como los sistemas turbo. 
Obsérvese, también, que todo lo anterior se 
aplica a los usuarios del 6128 que deseen usar 
su ordenador como diversión, pues la gran 
mayoría del software lúdico se encuentra en 
cinta de cassette y no en disco, por ahora al 
menos. 
Siguiente pregunta: ¿qué pasa cuando el 
famoso cabezal se encuentra a la altura correcta, 
la cinta está bien grabada y, sin embargo, no 
carga? 
En AMSTRAD Semanal probamos 
programas en cinta y en disco casi a diario, y 
nos encontramos a menudo con este problema. 
Tras bastantes intentos infructuosos, alguien, en 
un momento de feliz inspiración, descubrió el 
método medieval para el arreglo de cintas 
recalcitrantes, magnífico en su tosquedad. 
Consiste en aplaudir las cintas. 
Me explico de nuevo. Hoy en día, las cintas 
de cassette se fabrican en masa, miles de copias 
de una sola vez. Muchas veces, el rollo de cinta 
sale de las máquinas de producción apelmazada, 
es decir, con palabras técnicas, experimenta una 
desusada resistencia a la tracción, a girar, y la 
fuerza que ejerce el Amstrad para mover la 
AMSTRAD S'emanal 5 



Existe un método medieval para arreglar 
cintas de cassette rebeldes, tosco, pero 
seguro y eficaz 


cinta, al intentar cargarla, es insuficiente. Gira, 
pero no a la velocidad adecuada, y ocurren 
errores de lectura, el conocido «Read error. __" 
Resulta que, para remediar esto, en la 
inmensa mayoría de los casos basta con 
propinarle a la cinta unos golpes enérgicos y 
sostenidus contra la palma de la mano, durante 
unos segundos. De esta forma, la cinta se 
descarga y se carga a la perfección. Ya sé que 
un método tan carente de sutileza, en plena era 
informática, despierta como mínimo la 
desconfianza, tal vez la hilaridad, y suena a 
inspiración de kindergarden. Sin embargo, el 
truco descansa en la más implacable lógica, Si 
uno se lo piensa despacio, y desde luego, 
funciona. 
Resumiendo. Cuando una cinta de cassette 
no carga, y sin embargo está bien grabada: 
Ajustar el azimut del cassette, a golpe de 
destornillador. 
Recurrir al método medieval, clavo ardiendo 
de los desesperados. 
Si después de experimentar con ambos 
métodos, la cinta sigue negándose a funcionar, 
podemos arriesgarnos a sentar cátedra: la cinta 
no está bien grabada. 


Problemas con los discos 


Es el momento de introducirse, con la 
conciencia tranquila, en el mundo mucho más 
sosegado y relajante de los discos. Estos 
ingeniosos sistemas poseen una bien ganada 
reputación de rápidos, fiables, resistentes, en 
fin, de no funcionar tan a salto de mata como .sus 
venerables ancestros, las cintas de cassette. Sin 
embargo, los manuales de Amstrad están llenos 
de aterradoras filípicas que amenazan con todo 
tipo de desgracias a los infelices datos que 
duermen en los discos, si a éstos no se les 
somete a un auténtico tratamiento de guante 
blanco. Todas las circunstancias que convierten 
un pedazo de madera en una mesa de trabajo se 
confabulan para llevar al atribulado usuario de 
discos por la calle de la amargura: que si la luz 
(cuidado con los mecheros), que si los campos 
magnéticos que si no deben colocarse los discos 
apilados, etc. Ni siquiera la reina de Saba se 
hizo merecedora de tan exquisito trato. 
Señores, estos, es una exageración. En 
AMSTRAD Semanal, estamos hartos de usar 
los discos contra las reglas, y jamás nos ha 
ocurrido nada. Hay que cuidar los discos, pero 
con una medida. 
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No obstante, sí hay algo que tiene todas las 
de ganar a la hora de destruir un disco, y que 
los manuales no destacan por encima de los 
demás: los golpes. La caída de un disco al suelo 
desde una mesa posee todas las papeletas para 
convertirlo en un posavasos, o algo igualmente 
inútil, y también lo decimos por experiencia. No 
siempre sucede, pero tenga muchísimo cuidado en evitar 
los golpes y caídas con los discos. 
Decíamos al principio de este artículo que, a veces, 
los discos se sueltan el pelo y de pronto, sin causa 
aparente, se niegan a cargar. Reintentarlo no 
sirve de nada, y el único premio que obtenemos 
a nuestros esfuerzos es el impersonal «Drive A: 
Read faih. 
Puestos de esta forma entre la espada y la 
pared, aparte de mesarnos las barbas, podemos 
hacer algunas cosas que funcionan casi siempre. 
El ominoso factor de incertidumbre descansa en 
el hecho de que hemos descubierto que estos 
«trucos» van bien, pero, mea culpa, no sabemos 
del todo por qué. 
El primer intento consiste en hacer un 
catálogo del disco. Así de simple. En la inmensa 
mayoría de los casos, si el comando «Cat» traga, 
el disco se arregla misteriosamente y ya 
podemos cargar y ejecutar el problema que se 
nos antoje. 
La segunda, para discos reincidentes, es cargar 
el CPM tecleando « I CMP» y luego teclear 
«DIR», es decir, pedirle al ordenador muy 
educadamente que nos muestre el contenido del 
disco, pero en CPM, como quien no quiere la 
cosa. Mano de santo, oiga. 


De vez en cuando, un disco se niega a 
cargar, La solución más simple es hacer un 
catálogo del mismo 


La tercera es más radical, pero también 
mucho más efectiva. Consiste en el expeditivo 
método de apagar el Amstrad, esperar unos 
momentos, y volverlo a encender. El duende 
que acecha en la trastienda del ordenador 
decide que ya está bien de bromas y permite 
que la unidad de disco, y el disco mismo, 
funcionen como Dios manda. 
En todos los casos en los que las recetas de 
brujería anteriores no han funcionado, un 
atento examen del disco con programas al 
efecto, monitores de disco y cosas así, nos ha 
demostrado que había pistas o sectores dañados. 
Por cierto, a colación de esto, tenemos en 
reserva otra receta casera que viene como anillo 
al dedo; es la siguiente: cuando todo falle, borre 
algo del disco. 
Por razones que explicaremos en seguida, el 
c?mando «1 ERA» funciona prácticamente 
siempre. 



Encontrará que, tras la ejecución sumaria de 
algún fichero inútil, el disco vuelve a funcionar 
de nuevo. Recordemos el mensaje de error: 
«Drive A: Read faih" o sea, error de lectura. 
A veces, esto quiere decir que el disco tiene 
pistas o sectores dañados, pero sólo para 
lectura, no para escritura, y da la casualidad de 
que en ellos se ha grabado el directorio del 
disco, que es donde la máquina trata de 
econtrar un programa cuando usted le da la 
orden «LOAD» o «RUN». No tienen por qué 
ser aquéllos relativos al programa o fichero, la 
zona ocupada por el directorio del disco se 
reorganiza, y en el próximo intento la zona 
conflictiva ya no está en uso. 
Resumiendo: 
Evite que los discos reciban golpes fuertes 
o caídas. Ahí está el verdadero peligro de 
estropearlos. 
Cuando un disco, de repente, se niega a 
cargar: 
Haga un «CAT» del disco. 
Pase a CPM y realice un «DIR». 
Apague el ordenador, espere unos 
momentos y vuelva a encenderlo. 
Borre un fichero o ficheros no 
esenciales del disco. 
Por último, a guisa de último cartucho, copie 
el disco rebelde en otro virgen, mediante el 
comando «CPM» llamado «Disckit», o su 
equivalente «Discopy» en el caso del CPC 464 e 
ignore los posibles mensajes de advertencia en 
cuanto a sectores y/o pistas dañadas. 


Programas que no funcionan 
en un 464 


Bien, cerremos definitivamente los tratados de 
nigromancia y vamos a centrarnos en otro tema 
mucho más mensurable: cómo conseguir que un 
programa escrito para el CPC 6128 funcione en 
un CPC 464. 
Los problemas que se plantean en este asunto 
son dos, de índole diferente, pero que pueden 
mezclarse para compljcar aún más las cosas; 
vamos a intentar explicar ambos y dar una 
solución. 
El Basic del 6128 posee todo un cúmulo de 
nuevos comandos que no existen en el 464, en 
genera] relacionados con los gráficos. La 
solución es fácil: AMSTRAD Semanal, en el 
número 42, página""'24, publicó una serie de 
rutinas en Código Máquina, que el usuario 
puede emplear aunque no tenga conocimiento 
en absoluto de dicho lenguaje, las implementan 
los comandos que faltan con mínimas 
diferencias. Primer problema resuelto. 
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Guía del lector 


PROGRAMA CARGADOR 


10 REM Upgrade 
20 REM POR R.A.W. 
30 REM (e) MICROHOBBY-AMSTRAD 
4e' REM *** CALL ScAe,e'e' PARA ACTIVAR 
UTILIDAD U* 
SO MEMORY Sc9FFF:direeeion=ScAOOO 
6e' FOR i=l TO 6e' 
7e' sLlma=O: READ eodi go$, eheqLleo$ 
80 FOR j=l TO 21 STEP 2 
90 byte=VAL("Sc"+MID$(eodigo$,j,2» 
100 POKE direeeion,byte 
110 sLlma=sLlma+byte:direeeion=direee 
ion+l 
12C' NEXT 
130 IF sLlma( >VAL ("Sc"+eheqLleo$1 THEN 
PRINT "Error de datos en la linea 
"; 140+i*1(' 
140 NEXT 
150 DATA 018CAIED43E9BD2185A122,56D 
160 DATA OFBC3EC3320EBCCDI1BC32,494 
170 DATA 8BA1('121A021A8AC>C3DIBC,5A7 
180 DATA 4DAOC319BBC3C4AOC3CEAO,6DC 
190 DATA C3D8AC'C3DEAe'C301AIC31C,6CO 
200 DATA AIC361AIC367AIC36DAIC3,6C5 
210 DATA 73AIC379AIC37FAIC3DEA1,716 
220 DATA 4652414DC5475241504849,3A6 
230 DATA 43532E50415045D2475241,396 
240 DATA 50484943532E5045CE434C,397 
250 DATA 4541522E494E5055D4434F,3AB 
260 DATA 50594348D2435552534FD2,464 
270 DATA 4D4153CB4D4F56C54D4F56,455 
280 DATA 45D2445241D744524157D2,4C5 
290 DATA 504C4FD4SC'4C4F54D24649, 45F 
300 DATA 4CCC000000000021BBA07E,30F 
310 DATA A7CBCD5ABB2318F7457272,5AC 
320 DATA 6F72205253580AOD003DC2,314 
330 DATA ACAODD7EOOC3E4BB3DC2AC,6B4 
340 DATA AODD7EOOC3DEBBCD09BB38,620 
35e' DATA FBC9FE02C2ACAODD6EOODD,6FA 
360 DATA 6601DD7E027EA7CAACA023,522 
370 DATA 4E2346CDB4BBF5CD60BB02,5D2 
380 DATA FIC3B4BBFE0220A7DD7E02,647 
390 DATA A7F5C47BBBFICC7EBBDD7E,7E7 
400 DATA 00A7C481BBCC84BBC9FE02,67B 
410 DATA C2ACAODD7E02r-EFF280FA7,646 
420 DATA 280CDD7EOOA7DD7E022809,3C4 
430 DATA OF30FDCB073242AIC90F38,433 
440 DATA FD18F5FFFE04C2ACAODD7E,774 
450 DATA 00CD59BCDD7E02CDDEBBDD,682 
460 DATA 6E04DD66e'5DD5E06DD5607, 435 
470 DATA C9CD43AIC3COBBCD43AIC3,72C 
480 DATA C3BBCD43AIC3F6BBCD43Al,754 
4ge' DATA C3F9BBCD43AIC3EABBCD43,7AO 
500 DATA AIC3EDBB328BAICFCA8AOO,68D 
5lC> DATA C5DSE52142A179A7281D3A,522 
520 DATA 8BA13D281E3D282E79FE03,3BC 
530 DATA 2807CBOE380BAF18087EE6,37E 
540 DATA 03CBOECBOEAIEIDIC14FC3,5DB 
550 DATA 680C7ge'6040FDCC5AllC>FA,452 
560 DATA 18EECBOEp8CB9FCBBFC979,6ED 
57(' DATA 060BOFDCDBAI10FAIBDBCB, 
3A 
5BO DATA OED8CBBFC93DC2ACAOCDE1,732 
590 DATA BB3296A2CDE7BB3298A2DD,6DD 
600 DATA 7E003295A2CDE4BB3A95A2,SC4 
6lC> DATA CDDEBBCDC6BBD5ED5391A2,7FC 
620 DATA 2293A2CDIIBC3E0438063E,3AF 
63(' DATA e'228023E013297A2CD5FA2,3A4 
640 DATA ED42CD3DA220F6DIED5391,693 
650 DATA A2CD5FA209CD3DA220F73A,576 
660 DATA 96A2CDDEBB3A98A2CDE4BB,77E 
670 DATA C92291A2EB2A93A2CDFOBB,6Ee' 
680 DATA 2A9SA2BDC8BCC9ED5B91A2,6E6 
690 DATA E5CDFOBB2A95A2BD2801BC,660 
700 DATA EIC92A93A22323CD4EA22e',52C 
710 DATA F92B2BE52A93A22B2BCD4E,504 
720 DATA A220F92323EDSB91 A2CDCe" 609 
730 DATA BBEIED5B91A2CDF6BB2A91,750 
740 DATA A2AFED4B97A247C9000000,4D2 
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El segundo es un tanto más esotérico, y 
Amstrad no lo advierte oficialmente por ningún 
lado. El 464 no posee unidad de disco, pero se 
le puede incluir una, Cuando se hace esto el 
software que permite funcionar a la unidad 
ocupa una determinada zona de la memoria; 
cuando tecleamos un programa muy largo 
(según nuestra experiecia más de 20 K son 
suficientes, en general), de alguna forma la zona 
ocupada por nuestro programa choca con la 
zona ocupada por el programa de la unidad de 
discos. Resultado: el ordenador no da mensaje 
de error alguno, pero, tras grabar el programa 
Basic en el disco, cargado de nuevo y listar, 
una o muchas líneas de programa desaparecen 
misteriosamente, y no funciona. 
La solución es fácil, pero tediosa. Consiste en 
analizar un poco el programa, dividido en 
trozos (subrutinas), y cargadas desde el disco 
mediante la orden «CHAIN" o «CHAIN 
MERGE" a medida que el programa principal 
las vaya necesitando. Actuando de esta forma, 
aunque tengamos un 464, nuestro programa 
puede ocupar todo el espacio disponible en la 
unidad de disco: 170 K. Obviamente, la receta 
es válida para los usuarios de 6128. 
Para evitarse definitivamente problemas 
usando este método, es muy recomendable 
grabar las subrutinas en el disco en formato 
"ASCCI", mediante la orden SA VE 
"nombre", A. 
Paradójicamente, los usuarios del 464 que no 
tengan unidad de disco, no tendrán que 
preocuparse de los programas largos, en 
general. 
Como resultará obvio a esta alturas, ambos 
tipos de incoveniente pueden mezclarse: 
comandos Basic sólo del 6128 en un programa 
muy largo. La solución es, por supuesto, 
mezclar las dos técnicas descritas: usar nuestro 
programa que implementa los nuevos comandos 
y dividido en porciones que se cargarán desde 
el disco mediante "CHAIN". 
Resumiendo, una vez más. Para conseguir 
que cualquier programa, por largo que sea, 
corra en un 464, con o sin los nuevos comandos 
del 6128: 


Cualquier programa, por largo que se sea, 
cabe en un 464 gracias al comando 
«CHAIN» 


Usar el programa publicado por 
AMSTRAD Semanal en el número 42, página 
24. 
Exatr.-inar, con paciencia, la estructura del 
programa y dividido en porciones más 
pequeñas. 
Los usuarios del 464 sin disco, en 
principio no tendrán que ocuparse de los 
posibles inconvenientes causados por 
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programas largos. 
Quedan tan sólo dos temas de los que 
hablar, especialmente dedicados de todo 
corazón a todas aquellas personas que acaban 
de adquirir un ordenador Amstrad, llenas de 
ilusión y la esperanza de que su máquina les 
sirva para resolver sus problemas. Suena a algo 
infantil, pero una vez más, avalados por nuestra 
experiencia, nos atrevemos a asegurar que 
ponen serios escollos en el camino del 
principiante. El primero versa acerca del orden 
en el que, según parece, hay que apagar y 
encender los ordenadores Amstrad. De nuevo, 
los manuales cumplen su función de guiar al 
usuario por el mejor camino, pero exageran en 
su celo. 


El verdadero peligro de estropear un disco 
reside en los golpes o caídas, 


Por diversas circunstancias de la delirante 
dinámica que acompaña a cualquier semanario 
y que ahora no vienen al caso, nosotros hemos 
encendido y apagado todos los Amstrad de 
todas las maneras posibles, a lo largo de muchos 
meses, y jamás ha pasado nada. Así que, cuando 
apague su ordenador y se olvide el disco dentro 
de la unidad, o algo parecido, no se preocupe 
demasiado. 
El segundo punto, con el que pretendemos 
cerrar este artículo, es aún más esencial para la 
persona que empieza. Los manuales también lo 
comentan, y esta vez no exageran nada: es 
imposible estropear el ordenador por 
experimentar en él tecleando cosas, 
aprendiendo en definitiva. Ya sé que parece la 
conclusión de Pero grullo, pero recordamos 
perfectamente lo que nos pasó a nosotros la 
primera vez que desembalamos un ordenador y, 
con infinitas precauciones, lo encendimos. No se 
preoucupe y créanos: usted no puede estropear 
su máquina con facilidad. Le costará muchísimo 
conseguido. 
Para todos aquellos lectores interesados, y que 
no tengan a mano las rutinas que convierten a 
un 464 en un 6128, en cuanto al Basic, 
volvemos a publicar el programa cargador y 
una breve reseña del funcionamiento de cada 
comando. 


Lista de nuevos comandos para 
el CPC 464 


I FRAME: Sincroniza el movimiento de los 
caracteres por la pantalla de tal modo que se 
realiza con mucha mayor suavidad. 
I GRAPHICS.PEN, tinta: asigna un valor a la 
tinta con la que vayamos a trazar rectas y 
puntos o dará color a los caracteres que se 
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escriban en pantalla tras una instrucción T AG. 
I GRAPHICS.P APER, tinta: lo mismo que el 
anterior, pero para el papel. 
I CLEAR.INPUT: limpia el buffer de teclado 
de caracteres o cadenas indeseadas. 
I COPYCHR, canal, dirección de una cadena: 
lee el carácter en pantalla en la posición 
indicada por el cursar. Se usa de la siguiente 
manera: 


a$=chr$(O) 
I COPYCHR, #3,_(á)a$ 
print ASC[a$) 
I CURSOR,sistema, usuario: los dos parámetros 
pueden valer uno o cero. El primero, cuando 
está activado, permite que el cursor aparezca en 
la pantalla. El segundo, conmutador del 
usuario, faculta para quitar o poner el cursar. 
I MASK, máscara, primer punto: manipulación 
de gráficos mediante plantillas para dibujo de 
rectas. El primer parámetro puede valer de O a 
255, y el segundo 1 ó O. 
I FILL, tinta: llena un área de pantalla con el 
color señalado por tinta. 
Los que restan no requieren explicación; se 
refieren a dibujo de puntos y rectas respecto a 
un origen absoluto o relativo. Una 
experimentación de minutos aclara su función y 
sus diferencias. 
I MOVE, posicionx, posiciony, tinta, modo de 
pantalla. 
I PLOT, posicionx, posiciony, tinta, modo de 
pantalla 

 
Es imposible estropear un Amstrad 
tecleando cosas en él. 


I DRAW, posicionx, po sic ion y, tinta, modo de 
pantalla 
I PLOTR, posicionx, posiciony, tinta, modo de 
pantalla 
I DRA WR, posicionx, posiciony, tinta, modo de 
pantalla 
Para instalar los comandos, el procedimiento 
es muy sencillo: primero se teclea el programa 
cargador. Luego, ANTES DE EJECUTARLO, 
se salva en el disco y, por fin, se ejecuta con 
CALL &AOOO. Ya está. 
Hay otro problema, y es que podemos 
obtener mensajes de error extraños al usar el 
comando Symbol After. Para evitarlos, una vez 
ejecutado con RUN el programa cargador y 
antes de teclear CALL &AOOO, salvar en el 
disco los byte s de esta forma: 
SAVE "NOMBRE", B, &AOOO, &2AO 
, 
Si deseamos ahora usar Symbol After, 
ponerlo según indica el manual como se quiera 
y, por fin, teclear: 
LOAD "NOMBRE" 



1' , 
/ 
'" 
I 
 I,.QS 
. Y..a1{;S 
--:t 
"'" 

- 


". 


- 


\, /- 



El disco duro 
de Amstrad 
tendrá garantía 
en España 
Según las últimas noticias 
llegadas del otro lado del canal, y 
que hacen referencia a la noticia 
publicada por nosotros en el 
AMSTRAD Semanal número 68 el 
disco duro de Amstrad. y en 
comra de lo publicado en el 
mencionado número, sí disfrutará 
de garantía. No obstante, dicha 
garantía sólo comprenderá la 
reposición de los componentes 
estropeados, sin que ésta misma 
cubra los gastos que se originen 
por su instalación. Ante esta 
situación, Amstrad Consumer 
Electronic recomienda a todos sus 
usuarios británicos la adquisición 
de un contrato de mantenimiento, 
que sí cubre la mano de obra, por 
un precio comprendido entre las 40 
y las 60 libras anuales, en función 
del servicio ofrecido. 
En cuanto a España, las cosas 
parecen ser muy distimas. Puestos 
al habla con Indescomp, S.A., nos 
han confirmado que, a través de su 
propio servicio técnico, 
garantizarán el equipo de forma 
total y absoluta. y en las mismas 
condiciones que el resto de los 
ordenadores hasta ahora 
comercializados, una vez que la 
configuración PC-1512 + disco duro 
de Amstrad esté a la venta en 
España. 
Como recordarán nuestros 
lectores por la noticia aparecida en 
el número 70, el disco fijo de 
Amstrad no se comercializará en 
España hasta el mcs de abril. 
Hasta esta fecha, será Proa, S.A., 
la encargada de su instalación y 
ésta también ser..L la que garantice 
su buen funcionamiento por el 
período de un año a partir de la 
compra. 
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Presentados por Idealogic 


Cuatro programas 
de formación 
profesional 


En su serie de formación 
profesional para Amstrad, Idealogic 
presenta cuatro programas de gran 
utilidad: 
Ideatype, consta de una serie de 
prácticas progresivas para aprender, 
ejercitar o, simplemente, perfeccionar 
su técnica mecanográfica. 
Para control de registro, inventarios, 
archivos y clasificaciones, se ha creado 
el programa Idea Base, que puede ser 


utilizado conjuntamente con [deatext 
para crear documentos. 
Con Idea Mail podrá generar 
etiquetas de envío y crear cartas 
personalizadas. 
Y, por último, Idea Text, que es un 
procesador de textos para ordenadores 
personales con cassette o disquette e 
impresora. Edita y formatea textos 
para su copIa por Impresora o como 
fichero en cinta. 
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Los educativos de Tasoft, S.A. 
Estudiar por ordenador 


Para «divertirse" estudiando, la 
empresa Tasoft, S.A., ha creado 
una serie de programas infantiles 
que hacen entrar a la informática 
en el mundo intelectual, después 
de haberlo hecho ya en casi todos 
los sectores de la vida cotidiana. 
Cada uno de los cinco 
programas de que consta este aula 
informática trata una materia 
diferente; funciones vitales del 
cuerpo humano, geometría del 
plano, geometría del espacio, 
España y sus recursos, y España: 
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comunidades y autonomía. 
Con ellos se pretende introducir 
al niño en el mundo de la 
informática mientras aprende las 
materias incluidas en los planes de 
estudio oficiales. 
Esta serie de programas cuenta 
con varios niveles de test, para una 
o dos personas o para grupos, para 
evitar, de esta manera, el 
aislamiento en el estudio. 


Tasoft, S.A., CI Guadalquivir, 
7. Tel. 262 95 76. 28002 Madrid 
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Hisoft Paseal 


Víctor Prieto 


Entre los compiladores de los distintos lenguajes existentes para el A mst
adJ 
hemos escogido uno de Pasca
 de «HisoJt») que sorprende por su poteneza) su 
sencillez de uso y sus gráficos de tortuga. 


EllcagU'jC ¡
",cal naÓó ea el ,ño 1968, 
formulado por Niklaus Wirth del [nstituto Federal 
de Tecnología en Zurich, apareciendo el primer 
compilador en 1970. Su éxito y aceptación por 
todos los programadores posibilitaron el hecho de 
que en 1978 estuvieran disponibles más de 110 
compiladores diferentes. 
El P!lscal es un lenguaje de propósito general, 
extensible a un amplio rango de aplicaciones. A su 
desmesurada IXJtencia de programación añade la 
cualidad de ser compacto y fácil de aprender, con 
un alto grado de capacidad para la estructuración 
de los datos, haciendo que el compilador cargue 
con gran parte de los trabajos que estaban 
destinados al programador. 
Con el Pascal de Hisoft, la memoria utilizada al 
implantar el compilador se distribuye del modo 
siguiente: 12 K para el almacenamiento del 
compilador, 5 K para el controlador de ejecución 
y 2 K para el editor. Con este reparto de 
memoria obtenemos un espacio libre para 
programas y datos de 20 K. 
La versión que está en nuestras manos no 
mamja los fi4 K de memoria libres del 6128, 
motivo por el cual el espacio destinado a 
programas y datos tiene la longitud arriba 
especificada. 


Un editor sin grandes scifi-sticaciones, un 
compilador con muchas posibilidades y unos 
buenos gráficos de tortuga, garantizan este 
Pascal de Hisoft. 


El editor 


Este se ha diseñado atendiendo criterios de- 
facilidad de uso y pensando en reducir el gasto de 
memoria a la mínima expresión, de esta forma se 
ha conseguido un editor sin grandes 
sofistid'riones, e integrado en el mismo programa 
que el compilador evitando la constitución típica, 
en la que compilador y editor se encuentran en 
programas distintos, requiriendo la continua carga 
de éstos en memoria para corregir errores. 


Este está basado en un sistema de línea, el cual 
permite suprimir y copiar trozos de línea a partir 
de una determinada posición, copiando,después de 
introducir moditicaciones,el resto de la misma. e 
insertando el texto necesario. 
Contiene los comandos necesarios para insertar 
líneas, listar el texto por pantalla o impresora, 
editar líneas. borrar un bloque de líneas 
determinado. renumerar el fichero de texto y 
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10 PROGRAM reverseline; 
20 TYPE elemento=RECORD 
30 siguiente:Aelemento; 
40 caracter:char; 
50 END; 
60 enlace=Aelemento; 
70 VAR anterior.enuso.stack:enlace; 
80 BEGIN 
90 REPEAT 
100 markCstack); 
110 anterior:=NIL; 
120 WHILE NOT eoln DO 
130 BEGIN 
140 newCenuso); 
150 readCenusoA.caracter); 
160 enusoA.siguiente:=anterior; 
170 anterior:=enuSD 
180 END; 
190 enuso:=anterior; 
200 WHILE enuso<>NIL DO 
210 BEGIN 
220 write(enusoA.caracter); 
230 enuso: =enuso A . siguiente 
240 END; 
250 writeln; 
260 release(stack); 
270 readln 
280 UNTIL false 
290 END. 


Un ejemplo de programa en Pascal en el que se ajJreczan la.\' 
posibilidades de la.\ e.\'lrucluras de dolos. 


húsqueda de un literal a lo largo de! texto. 
Para modificar una línea cualquiera podemos 
utilizar los sib'Uientes recursos de! editor: 
Abandonar la edición ignorando los cambios 
realizados. 
Recargar e! bufer de edición, volviendo a tener 
la línea como estaba antes de realizar cualquier 
rectificación y en modo de edición. 
Listar e! resto de la línea desde la posición de 
cursor. 


Eliminar e! carácter en la posición de cursor. 
Suprimir todos los caracteres desde e! cursor al 
final de la línea. 
Buscar una determinada palabra en la línea y 
sustituida por otra. 
Insertar caracteres en la posición de cursor. 
Cambiar e! carácter situado en el cursor. 


El compilador 


." 


La compilación desde e! editor permite las 
siguientes posibilidades: 
Alterar los valores prescritos para omisiones en 
la compilación ejecución, ampliando la tabla de 
símbolos. 
Compilar e! texto a partir de un número de 
línea determinado. 
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Ejecutar e! programa en código obtenido en la 
compilación previa. 


Traspasar e! código objeto obtenido en la 
compilación hasta e! controlador destruyendo e! 
compilador y pasado a cinta como programa 
ejecutable con nombre de fichero. Este código se 
volcará en cinta o disco en formato de fichero 
binario. 
El compilador permite incluir ciertas opciones 
dentro de los comentarios de! programa, las cuales 
han de ir precedidas por e! signo $, permitiendo: 
Controlar e! listado de! programa y las 
direcciones del código objeto, obteniendo las líneas 
con error o la totalidad de éste. 
Efectuar comprobaciones de Overflow, en 
previsión de posibles desbordamientos de la 
capacidad de cálculo. 
Detener el programa con la pulsación de una 
tecla durante la ejecución de! código objeto. 
Realizar comprobaciones del espacio ocupado 
por el Stack. 
Comprobación de que los índices utilizados en 
las variables están dentro de los límites admitidos. 
Verificación de rebosamiento en las operaciones 
de comparación en aritmética entera con notación 
a complemento a dos. 
Establecer ficheros con nombres de hasta 12 
caracteres, haciendo que se incluya un programa 
fuente de Pascal a partir de! final de la línea 
actual. 


Números y caracteres 


Los números enteros tienen un valor absoluto 
menor o ib'Ual que 32767, los números mayores a 
este valor han de ser tratados como reales. 
La mantisa de los números reales tiene 23 bits 
de longitud, consiguiéndose un factor de precisión 
de 7 cifras significativas; esta precisión se pierde si 
el resultado de un cálculo es mucho menor que el 
valor absoluto de sus arb'Umentos. 
El número real más grande disponible es de 3.4 
E38 Y e! más pequeño e! 5.9 E-39. 
Se pueden utilizar también núm(oros 
hexadecimales. 
Las cadena
 de caracteres pueden tener una 
longitud de hasta 255 elementos. 


Sentencias Basic 


Aparte de las instrucciones propias de! lenguaje 
Pascal, este compilador incluye una serie de 
procedimientos que funcionan en forma similar a 
como lo hacen ciertas instrucciones de Basic 
utilizadas en el Locomotive Basic. 
Poke: para introducir valores en posiciones de 
meII10na. 



Mundo del 
CPC 


Tout: manda variables hacia cinta o disco. 
Tim: lee valores de la cinta para introducidos 
en meII10na. 
Out: gestiona los Ports de salida del Z-80. 
External: cede la ejecución de una tarea a 
programas grabados en ROM, comandos RSX. 
After: ejecuta una rutina después de cie;to 
espacio de tiempo. 
Every: posibilita e! uso de interrupciones. 
Sound, Env, Ent: para e! control de los 
parámetros de sonido del sintetizador. 
Peek: especifica el contenido de una 
determinada posición de memoria. 
Inp: para manejar los Ports de entrada del 
Z-SO. 
SQ controla la cola de sonidos. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 160 
170 
180 
190 


PROGRAM fibenaccl; 
VAR numere,result:integer; 
FUNCTION fib(number:integer):integer; 
VAR 
i: integer; 
BEGIN 
IF number>2 THEN i: =fib (number-l) +fib (number-2) 
ELSE i:=I; 
fib: =i; 
write!i); 
END; 
BEGIN 
write('Calcule de la serie de Fibenacci'); 
wri tel n; 
write('Dime el numere base: '); 
read (numere) ; 
result:=fib(numere); 
wri te !resul t) ; 
END. 


Otro ejemplo en el que la eHnerada eJtructuración del PQ1cal apoya la 
compremiÓn del proltrama. 


Remain: calcula el tiempo de intervalo restante 
de cierto temporizador. 
Las rutinas del firmware pueden ser llamadas 
mediante ciertos procedimientos grabados en el 
disco: éstas, diseñadas de forma auto documentada, 
puden ser incluidas directamente en nuestros 
programas para su uso. 


Gráficos de tortuga 
El compilador de Pascal viene acompañado en 
su segunda cara por un paquete de gráficos de 
tortuga con el nombre de Turtle. 
Este puede ser cargado en el editor y añadirse a 
cualquier programa existente. Se ha introducido el 
símil de la tortuga, en forma similar a la 
construcción de gráficos que realiza e! Lago, para 
dar una idea más clara de! movimiento que se 
puede realizar con la misma en pantalla, con 
indicaciones de rumbo, posición y estela. 
En el movimiento de la misma podemos fijar 
los siguientes parámetros: 


- -< 


Tinta, papel, pluma, pOSlClon, rumbo, pOSlClOn 
absoluta, movimiento hacia delante, atrás, girar un 
ángulo, modo de pantalla, giro a la derecha, giro 
izquierda, arco de círculo y tortuga al centro de la 
pantalla. 
U n excelente complemento al compilador que 
permite realizar ciertos gráficos y que aporta una 
nueva dimensión a un lenguaje huérfano de 
medios de expresión gráfica. 


Instrucciones 


El Pascal de Hisofi: viene acompañado de un 
completo manual de instrucciones, íntegramente 
escrito en castellano, a lo largo del cual se 
describen, capítulo a capítulo, todas las opciones V 
tandas de este compilador ocupando un total 
98 páginas. 
La primera sección del manual está dedicada a 
la sintaxis y semántica, la sección 2 habla de los 
identificadores predefinidos, la siguiente de las 
opciones del compilador, otro capítulo t'stá 
dedicado íntegramente al (-'ditor, otros apartados 
incluyen: el apéndice de errores, palabras 
reservadas e identificadores predcfinidos, 
representación de datos y almacenamiento, 
ejemplos de programas en Pascal, gráficos de 
tortuga y rutinas grabadas. 
Todos los aspectos contemplados en el manual 
hacen que e! compilador pueda ser exprimido al 
máximo aprovechando toda su potencia. Hemos 
de advertir que este manual está dirigido a gente 
que tenga contacto con este lenguaje, los novicios 
en esta disciplina deben primero recurrir a un 
libró de Pascal, y con ayuda de los programas 
contenidos en el mismo, ir aprendiendo lo 
rudimentario de este apasionante sistema de 
programación. 


Conclusiones 


A parte del nombre de la firma y su 
indiscutible proyección en el mundo de los 
'compiladores, hemos de decir que nos hayamos 
ante una versión excelente para aquellos 
programadores que quieran introducirse en el 
mundo del Pasca!. 
En el compilador de Hisoft encontraremos todas 
las características estándar de este lenguaje listas 
para ser usadas en nuestro ordenador. Por otro 
lado, la parte dedicada a gráficos de tortuga 
posibilita ampliar las aplicaciones del lenguaje. 
Los programadores expertos e introducidos en el 
firmware del Amstrad, pueden utilizado a su favor 
mediante los procedimientos incluidos en el disco. 
Si a esto le añadimos la facilidad con la que 
podemos incluir comandos RSX hace que este 
espectro de posibilidades prácticamente no tenga 
límites. 
Lo único que echamos en falta es la existencia 
de una versión ampliada que pueda aprovechar las 
posibilidades del 612S. 
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el papel 


Antonio J. Cuadra 
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De siempre los programas 
de 7asman Software se han 
ganado a pulso un buen 
prestigio entre los que 
utilizan el ordenador para 
trabajar en serio. No sóln lo 
dicen los usuarios de los 
Amstrad CPC J sino 
también los que cuentan WT! 
Commodore, AfSX, 
Einstein, Sinclair QL y 
Spectrum, así como los de 
Amstrad PCW 


Salida pur impresora cun el prugrama Tascupy. 


S in duda el más reconocido ha sido el 
«Tasword», un potente procesador de textos que 
saca todo el partido al ordenador, así como a la 
impresora con la que va a funcionar, obteniendo 
con ella cualquier tipo de letra posible. 
La distribución de los programas de Tasman 
Software la llf'va a cano con gran interés de su 
parte Ofites Informática, y decimos con gran 
interés porque no sólo se preocupan de que sus 
programas estén presentes en cualquier punto de 
la geografía de la península ibérica -recordemos 
que Ofites también distribuye en Portugal-, sino 
que además se molestan en traducir al castellano 
tanto las instrucciones como el mismo programa 
en sí. 


Tascopy: algo más que un copiador 
de pantallas 


, 


El programa que tratamos en esta sección es de 
una herramienta imprescindible para cualquier 
programador de Amstrad CPC. Tascop)' es un 
copiador de pantallas, lo que se conoce en el 
lenguaje informático como «screen dump» 
-volcador de pantallas-, que transforma 
cualquier imagen que se visualiza en la pantalla 
del monitor en copia impresa por la impresora. 
Con el Tascupy se viene a paliar la ausencia de 
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una tecla tipo «Print Screen» en la serie CPC. 
con que ya cuentan otros ordenadores de la 
competencia como cualquier compatible PC, 
Sinclair, Spectrum o el mismo Amstrad PCYV 
entre otros. 
La copia impresa puede ser llevada a cabo por 
cualquier impresora con cabezal matricial de 
puntos. Ante la diversidad df' esta clase de 
impresoras, el Tascopy está preparado para 
funcionar sobre 13 modelos de impresora 
diferentes. Si la impresora que posee el usuario 
no está especificada en ese índice, Sf' debe ir 
probando «a palos de ciego» cada una de las 13 
opciones hasta dar con la apropiada. 
Así, por ejemplo, para impresoras como las 
Admate, New Print, CPA 80, o la reciente DMP 
2000 de Amstrad, hemos encontrado que se 
adaptan perfectamente al tipo Epson FX-80 
(opción C). 



Tal y como se pucde ver en su esruche, el 
Tascopy es incapaz de comenzar a trabajar Para 
ello se debe crear una versión configurada sobrf' 
otro disco o una cinta de cassette virgen. Los 
pasos que se deben segl1ir para realizar esa 
versión configurada son los siguientes: arrancar el 
programa, escoger el modelo apropiado de 
impresora, responder si la impresora escogida 
necesita para hacer un LF -Line Feed o salto de 
línea- el CHR$ (10) o un CR -Carriage 
Return o retorno de carro, vaciando el buffer de 
impresión. CHR$ (13)- junto con el LF, Y SI se 
desea modificar algún color prefijado de 
antemano. 
Ante Id :"egunda pregunta, lo mejor es 
decidirse por la segunda opción -la mayoría de 
las impresoras funcionan de esta mancra- y, en 
el caso de que deje líneas en blanco dentro del 
dibujo, debemos crear otra segunda versión 
configurada con la otra posibilidad. 
El Tascopy es capaz de realizar una copia 
impresa con toda la gama de tonalidades de 
grises. Cuando se imprime una copia, cada «plm» 
de la pantalla pasa a la impresora según un 
modelo patrón de puntos que depende del modo 
de pantalla utilizado (0,1 ó 2) y el color df' cada Según el modo qUf' se esté utilizando, la copIa 
«plot». Si por alguna razón el usuario del impresa aparecerá en distintos tamaños. En 
Tascopy no está satisfecho con la gama de grises l\IODE O, viene a ocupar una hoja horizontal 
prefijada, puede redefinirse cualquiera df' los 26 -realiza un «scannen> de izquierda a derecha y 

.
....
 - ...-...... ...-.... ......_.........._..........
. '-:.-'; 


Todas las tonalidades de gnses 


1\1 undo del 
CPC 


colores con los que cuenta el Amstrad. Esta 
posibilidad requiere gran atención del 
programador y un perfecto dominio del 
crmnatismo, por lo que recomendamos dejado 
como está y recurrir a modificar los colores sobre 
la pantalla con la orden del Rasic INK i,j, siendo 
i el número de la tinta -del O al 15 para el 
modo U,U al :) para el modo 1, o bien U ó 1 para 
el modo ¿- y j el color deseado entre O y 26. 
Así, para cambiar el color azul del ¡(¡ndo que da 


Tascop)' 
S caJJaz de realizar 
un
 cGpia impresa, con toda la gama 
de tonalidaces de grises 


el Amstrad nada más arrancado por un blanco 
brillante debemos hacer un IND 0,26. 


Posibilidad de efectn znnm 
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Salida por impresora con el programa Tascopy. 
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Salida por impresora con el programa Tascopy_ 


La 
opia impresa con la opción 
"POSTER" cuenta con un mayor 
tamaño, por lo <¡ue se imprime sobre 
distintas hojas, Esta obligará al usuario 
a cortar y pegar para obtener el póster 
final, con un tamaño final de dos o 
cuatro hojas, según el modo de pantalla 
(O. 1 ó 2) 


- 


de arriba a abajo-, mientras que en los MODE 
1 y 2 la copia se imprime en posición vertical 
-con un «scanner» sobre la pantalla de abajo a 
arriba y de izquierda a derecha-o Un problema 
que presenta el Tascopy es la desproporción en 
escala vertical y horizontaL con lo cual un círculo 
dibujado sobre la pantalla aparecerá como una 
elipse en la impresora. 
Hasta aquí queda todo dicho sobre el 
programa COPY del Tascopy. Sin embargo el 
paquete de utilidades incluye otro programa 
denominado POSTER. Su funcionamiento es 
idéntico al COPY y también debemos crear una 
versión configurada para su utilización. La copia 
impresa cuenta con un mayor tamaño -efecto 
zoom- y ante la imposibilidad de introducida en 
una hoja de papel (le impresora, se imprime 
sobre distintas hojas, por lo que el usuario deberá 
ocuparse de cortadas y recomponer el dibujo. En 
MODE O, la pantalla ocupa un par de hojas 
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horizontales y en los MODE 1 y 2 son cuatro 
hojas verticales -cada hoja es un cuadrante de lo 
que está presente en pantalla-o Después de 
obtener cada parte de la pantalla, la impresora 
efectúa varios saltos de línea en blanco antes de 
empezar con la siguiente; para evitar que 
empiece a dibujar sobre un corte de hoja, se debe 
prefijar en la construcción de la versión 
configurada la cantidad de saltos. 


Utilización de las versiones configuradas 


Tanto para COPY como para POSTER, las 
versiones configuradas constan de dos partes: un 
fichero Basic cargador y el de Código Máquina. 
U na vez arrancada la versión configurada se crea 
un comando RSX: ¡COPY o ¡POSTER, según 
la versión utilizada. Una vez que haya 
respondido el ordenador con el típico «Ready» ya 
está dispuesto a aceptar y volcar una pantalla. 
Para ello debemos dar una orden del tipo: 
LOAD"¡nombre-pantalla" ,&COOO: ¡COPY (o 
IPOSTER) 
El símbolo de la admiración le indica al 
ordenador, si está trabajando con el cassette, que 
evite los mensajes del tipu "Luading Nombre- 
Pantalla block 1" _ Si se trabaja con disco, la 
admiración no será necesaria, aunque no 
presenta ningún problema si se d
ja de esta 
forma. 
El nombre de la pantalla (15 caracteres mmo 
máximo si se trabaja en cassette o bien ucho 
-con otros tres para la extensión- si se utiliza 
el disco) corresponderá a un fichero de 16 K (17 
K en el catálogo de un disco) que se haya 



grabado a partir de la dirección dt' memoria 
&COOO con la siguiente orden: 
SA VE" ¡nombre-pantalla" ,B, COOO,&4000 
Otra posibilidad de la versión configurada de 
los programas COPY y POSTER es incluirlas en 
un programa ck uso personaL Para ello debemos 
utilizar únicamente el fichero de Código Máquina 
de las versiones configuradas e incluir en nuestro 
programa las siguientes líneas: 
10 mm = HIMEN 
20 MEMORY mm-1911 
30 LOAD "¡COPY", mm-191O 
40 CLOSEIN 
50 CALL mm-191O 


y utilizar el comando ¡COPY cuando se desee 
imprimir la pantalla, o análogamente para 
¡POSTER con: 
10 mm = HIMEN 
20 MEMOR y mm-2501 
30 LOAD "¡POS TER", mm-2500 
40 CLOSEIN 
50 CALL mm-2500 


Las versiones configuradas de Tascopy son 
relocalizab]es en cualquier pusición de memoria, 
por ]0 que pueden resultar de gran ayuda cuando 
se está utilizando una subrutina en Código 
Máquina que se encuentra situada en una 
posición fija del mapa de memoria. 
Con todo lo dicho, Tasman Software vuelve a 
dar en el clavo con el Tascopy, que se debe tener 
siempre en cuenta si se desean obtener las 
máximas posibilidades en el CPC. 


-- 


.. 
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Salida por impresora con el programa Tascopy. 


Mundo del 
CPC 
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Salida por impresora con el programa Tascopy. 


Un programa imprescindible. para los 
amantes del diseño gráfico, que nos 
permitirá llevarnos "puestos" los 
dibujos que hagamos en la pantalla 


CDMPUTER 
GRAPHICS 


92 
SECIION A-A 
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Haz tu propia melodía 


Esta es la misión del programa que nos envía 
M. Carlos y que hará que el poder componer 
música con nuestro Amstrad sea cosa fácil. 
El programa podrá contar con cuarenta notas 
que podremos seleccionar, así como su duración y 
volumen, cuando arranquemos el programa. Una 
vez que hallamos definido estas upciunes en cada 
nota, aparecerán estas mismas dibujadas sobre un 
pentagrama. 
Podremos oír el sonido de cada nota después de 
seleccionarla y una vez conformes podremos oír la 
melodía una vez que hallamos pulsado el número 
«8». 


Cuando queramos dejar de oír la melodía, sólo 
tendremos que pulsar el espaciador. 
Si se quiere, pueden introducirse otros 
parámetros de ENV o ENT, o nivel de sonido. 
Bueno, pues a componer, que Beethoven ya 
queda más cerca. 


10 BORDER O:WINDOW tU, 19, 19,11,11 
20 SVMBOL AFTER 210:SVMBOL 210,0,0, 
10,0,255,0,0,0 
30 CLS:FOR 1=1 TO 10 STEP 2:FOR J=1 
TO 40:LOCATE j,14+I:PRINT CHR$(210 
) :NEXT j:NEXT i 
40 DIM 1
(41):DIM OPY.(41):X=1 
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I I 
50 A=478:B=426:C=379:D=358:E=319:F= 
I 284: B=253 
60 LOCATE 6,lIPRINT"MENU":PRINT "NO 
TA DO :1":PRINT "NOTA RE :2 
":PRINT "NOTA MI :3":PRINT "NOT 
A FA :4":PRINT "NOTA SlL:5" 
:PRINT "NOTA LA :6":PRINT "NOTA 
SI :7":PRINT "RESULTADO :8" 
I 70 LOCATE 18,4: INPUT "VOLUMEN (1 
1-7)";V 
80 LOCATE 18,5: INPUT"DURACION (1-10 
fOO)";L 
1 90 FOR i=1 TO 40 
100 5=5+1 
110 LOCATE 3,11: PRINT "ELIJE UNA NO 
I TA": INPUT tU, OP% ( 1) : IF OPr. CI DB DA 
OPY.(I){1 THEN 110 ELSE 120 
1120 ON OP
(I) BOTO 130,140,150,160, 
170,180,190,230 
I 130 SDUND I,A,L,V:ZY.(X)=A:BDTO 200 
140 SDUND I,B,L,V:ZY.(X)=B:BOTO 200 
¡ 150 SOUND 1,C,L,V:IY.(X)=C:BOTO 200 
160 SOUND I,D,L,V:ZY.(X)=D:GDTD 200 
I 170 SDUND 1,E,L,V:IY.(X)=E:BOTO 200 
lBO SOUND I,F,L,V:ZY.(X)=F:6DTO 200 
I 190 
D 1,6,L,V:IY.(X)=B:BOTO 200 
200 x-x+l:p=-p+l: 
1210 LDCATE p,26-opy'(i):PRINT OHRS(2 
37>. I 
I 220 NEXT i 
230 x-l:FOR j=1 TO 5 
1240 SDUND I,ZY.(X),L II V:IF IN<EY(47)( 
>0 THEN 250 ELSE RUN 
I 
O x-x+l:NEXT j 
260 SOUND 1,3822,100:6DTO 230 


. 
1 


Los ficheros de nuevo 


o 


Ya vimos una vez un pequeño programa para 
hacer ficheros. En aquella ocasión utilizamos datas 
corno sistema de almacenamiento, Hoy, deberemos 
dar los datos directamente y una vez que hayamos 
concluido el bucle de petición de datos, serán 
archivados y posteriormente leídos. A continuación 
se nos mostrarán en pantalla. 


111 


10 RBM grabac10n de datos. 
20 OPENOUT "Datos" 
30 FUJ.¡ 1=1 1'0 10 
40 INPUT "nombre"óno:m$ 
bO WRIT
 #9,nom$ 
60 NEXT 
70 CLOS
OUT 
60 REK lectura de datos 
90 Ul-'
NI:N "datos" 
100 FOR 1=1 TU 10 
110 INPUT #9,nom$ 
120 PRINT "El nombre numero"¡1ó"fue " 
ó no:m$ 
130 NEXT 
140 CLOSEIN 





 

 
:-\0 


 
d
 
cp
 


MICI; g 
1 


CI Duque de Se sto, 50. 28009 MADRID 
Metro O'Donnell o Goya 


PTAS, PTAS. 
THEY SOLO A MILLION III _ 2.500 NONAMED 2.100 
ASTERIX 2.100 4 SUPER 4 2.500 
TOP CUN 2.100 ARMY MOVES 2.300 
FAT WORM 2.100 CAME OVER 2.300 
REVOLUTION 2.300 COBRA 2.100 
RAMÓN CUTIERREZ 1.900 GOONIES 2,300 
CAUNLET 2.300 ANTIRIAD 2.100 
BREAKTHRU 2,300 AVENCER 2.100 
DUSTIN 2.100 FIRELORD 2.100 
ARQ[ÍMEDES XXI 2.100 URIDIUM 2.100 
FICHTINC WARRIOR 495 BOUNTY BOB 495 
DUMMY RUN 495 SOUTHERN BELLE 495 
NOVEDADES DE KONAMI (10 JUECOS)+RELOJ ROBOT O CALCULADORA 1.850 


SPECTRUM PLUS 19,800 PTAS, 
GRATIS 1 SUPLETORIO 
TELEFÓNICO 



 ¿
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IMPRESORAS 
20% DE DESCUENTO 


PTAS. 
CASSETTE ESPECIAL 3.995 
LÁPIZ ÓPTICO 2.890 
CARTUCHO MICRODRIVE 545 
CARTUCHERA 4 MICRODRIVES 95 
INTERFACE SONIDO TV 2.595 
INTERFACE CENTRONICS RS-232 8.495 
DISKETTES 3" 735 
DISKETTES 5 1/4" 295 
CINTA C-15 ESPECIAL ORDENADOR 69 
INTERFACE MULTIJOYSTICK _ 3.795 



 
I , 
( \ 


,.. ....., 
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POR CADA PROGRAMA QUE COMPRES 
¡¡GRATIS!! UNOS CASCOS DE MUSICA ESTEREO 
SI TU COMPRA ES SUPERIOR A 800 PTAS, 


SERVICIO TÉCNICO DE REPARACiÓN 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIÉN A PROVINCIAS 
SIN GASTOS DE ENVio 


¡¡OFERTAS EN JOYSTICKS!! 
PTAS. 
1.195 
1.495 
1.495 
1.995 
2.495 
2.795 
2.795 
3.395 


QUICK SHOT I 
QUICK SHOT 11 
QUICK SHOT V 
QUICK SHOT IX 
QUICK SHOT I+INTERFACE _ 
QUICK SHOT 11 + INTERFACE _ 
QUICK SHOT V + INTERFACE _ 
QUICK SHOT IX+INTERFACE _ 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-8256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO, TEl. (91) 
27596 16 - 2747502 O ESCRIBIENDO A: MICRO-1. CI DUQUE DE SESTO, 50.28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 274 75 03, 
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Los Goonies 
y el tesoro 
del barco pirata 
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Hace aproximadamente un año, tuvimos la 
oportunidad de ver en las pantallas de cine 
« The Goonies». Este film, de Steven Spielberg, supuso otro impacto lo 
suficientemente fuerte como para que las casas de software sacaran 
rápidamente el juego para ordenador. Hoy, vamos a comentar para nuestros 
lectores, la versión, recientemente aparecida, para los CPC de Amstrad. 



 


Mikey, Brand, Mouth, Data, Stef, Andy 
y Chuk, formaban un club de chavales que, 
cuando tenían un rato libre, se reunían para 
jugar Por los avatares de la vida, se vieron 
empujados a conseguir el tesoro de un barco 
pirata, el One Eyed Willy, cuyo mapa habían 
encontrado en un viejo desván. Digo empujados, 
porque sus casas iban a ser deshauciadas y claro, 
no están los tiempos para comprarse una nueva. 
La conquista del tesoro no hubiera significado 
un gran problema para un club de amigos tan 
intrépidos como los Goonies, si no hubieran 
aparecido en escena la banda de la familia 
Fratelli que, mamá incluida, se propuso 
im pedirlo. 
Al comenzar, nos encontraremos en la casa y 
deberemos desplazar a uno de los Goonies hacia 
la parte superior de la misma. Una vez allí, 
correremos una silla que se encuentra a la 
izquierda de la pantalla y la colocaremos debajo 
de una escalera por la que deberemos subir a la 
azotea. Aquí encontraremos una imprenta de 
dinero que se pondrá a funcionar cuando nos 
situemos a su lado, Al olor del dinero, mamá 
Fratelli saldrá de su habitación y recogerá el 
dinero que cae de la azotea, en este momento, 
pulsaremos el botón de disparo y cambiaremos de 
personaje. Con éste, deberemos dirigirnos a la 
planta de abajo, y situamos al lado de un 
depósito de agua que deberemos verter sobre el 
fuego de la chimenea que veremos. Cuando el 
fuego se apague, aparecerá en el suelo un agujero 
por el que tendremos que bajar para pasar de 
pantalla. Lo que no será tan fácil, pero que 
lograremos con habilidad, es pasar al Goonie que 
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se ha quedado fabricando dinero en la azotea. 
Para hacer esto, es imprescindible la mayor 
rapidez y burlar a mamá Fratelli, 
En la siguiente pantalla deberemos evitar el ser 
aplastados por los diversos objetos que allí 
veremos. Para lograr no acabar como papel de 
fumar, deberemos situar a uno de nuestros 
muchachos al borde de la primera piedra, cuando 
ésta baje avanzaremos hacia la derecha y 
haremos lo mismo con las piedras siguientes, 
luego. _., bueno, vamos a dejar de contar todos 
los trucos, porque si no le quitaremos la emoción 
al juego. Continuaremos diciendo que en esta 
pantalla deberemos vémoslas con un murciélago 
vampiro que aparecerá de improviso, que 
posteriormente deberemos bajar por una escalera 
y avanzar por la galería del lago, donde nos 
colocaremos encima de una bola flotante, para 
posteriormente saltar a una barra y, sin 
descolgamos de ésta coger una llave. En este 
momento, se abrirá un hueco y pasaremos por él 
a la siguiente pantalla. 
En ésta deberemos romper una de las tuberías 
de vapor para poder pasar. Una vez dentro, 
nuestra tarea será la de romper las tuberías de 
vapor, pero cuidado, éste nos puede matar. Para 
terminar bien esta pantalla será necesario, como 
en todo el juego, una estrecha colaboración de los 
dos Goonies. Así que, uno de ellos deberá cerrar 
la llave del vapor superior y el otro deberá 
encargarse de cerrar la llave del vapor inferior. 
Una vez hecho esto, pasaremos por un agujero a 
nuestros protagonistas y pasaremos d otra 
pantalla. 
En la caverna siguieme, deberemos lograr que 
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las balas de cañón se desvíen de su trayectoria y 
terminen rompiendo las tablas que impiden la 
salida. 
Para salir bien de esta parte de la misión, será 
necesario tener en cuenta que no debemos dejar 
que suene la campana que hay situada en la 
parte inferior derecha de la pantalla. Si la 
campana llegara a sonar, se despertarían los 
vampiros que duermen en la gruta, poniéndonos 
en una situación difícil, aunque superable, si 
volvemos a la posición de origen. 
La siguiente pantalla es la de la calavera. En 
ella se encuentra un buitre que deja caer 
calaveras, consistiendo nuestra tarea en apilar 
cinco en un montón y situadas en la parte 
inferior derecha de la pantalla. Cuando estén 
apiladas, podremos subir por ellas y empezar a 
trepar escalas. Antes de pasar a otra etapa, 
vamos a recomendar tener cuidado con el suelo 
de la anterior, guarda sorpresas. 
En la siguiente fase, veremos un órgano que 
suena gracias a las burbujas que caen sobre él. 
Para pasar de pantalla, deberemos evitar a toda 
costa que nos toquen las goteras, ya que éstas 
matan. El intríngulis de la cuestión, está en pasar 
al otro lado de la pantalla utilizando las escalas y 
palancas, éstas situadas en el techo, que veremos 
en esta fase. 
Cuando hayamos abierto la última puerta con 
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la llave que está muy próxima a ella en el techo, 
habremos terminado la fase y empezaremos otra. 
Esta etapa se desarrolla en una caverna que, 
entre otros alicientes, tiene un gigantesco pulpo 
que tendremos que quitar para poder salir. Esto, 
nada fácil de por sí, se complica con la necesidad 
de poner a nuestros héroes a salvo en una 
escalera, ya que si no la corriente les empuja 
hacia una afilada espada donde podrían quedar 
insertados como manzanas. Si a esto le añadimos 
que también deberemos evitar las tarascadas de 
los murciélagos, podremos decir que no nos 
aburriremos. 
Si conseguimos quitamos al pulpo de enmedio, 
y pasar por el boquete que estaba tapando, 
llegaremos a la última etapa del juego donde se 
ncuentra el buque pirata y en él, su tesoro. 
Pero para al que se le esté haciendo la boca 
agua, diremos que todavía tendremos que 
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demostrar nuestro coraje en el manejo de 
nuestros dos Goonies antes de echar mano a 
nuestro muy merecido tesoro. 
Entre otras cosas, tendremos que situar a 
nuestro protagonista más pequeño debajo del 
mástil junto al que se encuentra mamá Fratelli 
-cuidado con ella, es peligrosa-, al hacer esto 
lograremos hacer un agujero en el casco por 
donde deberemos pasar al otro protagonista. Una 
vez dentro, deberemos realizar un complejo 
número de cambios de protagonista para 
aprovechar su estatura que, según sea m<l;.Y0,r o 
menor, podremos utilizar según nos convenga. 
Después de estos cambios, y de entretener a 
nuestros enemigos con el pequeño de nuestros 
amigos, debermos ir tirando de las cadenas 
apropiadas en cada caso y recogeremos el tesoro 
del buque pirata. 
Como se puede ver, -en este caso, leer-, 
esta aventura está llena de acción, pero que por 
otra parte, ésta no se limita a la típica lucha 
contra los marcianos, guerreros o magos. 
Con «Los Goonies», tendremos que demostrar 
habilidad y astucia para descubrir todos los 
sistemas por los que tendremos acceso a las 
palancas, llaves, tesoro, etc. En una palabra, el 
juego nos hace «comernos el coco» un poco, cosa 
ésta que, de vez en cuando y tratándose de un 
juego, distrae un montón. 
Todo esto, más un movimiento que es 
acertado, configuran un juego que se hace 
entretenido y por el que se pueden sentir 
satisfechos en un primer caso US Gold, los 
creadores, y Erbe Software los distribuidores en 
nuestro país. 


Originalidad 
Gráficos 
Movimiento 


[YJ!Y1 [YJ DO 
[YJ!YI[YJ
D 
[YJ[YJ!TI
D 

[YJ0DD 

[yJ
DD 
[LI

[LID 


Sonido 
Dificultad 
Adicción 
Valoración final 


V Horrible V V 
VVVV Bueno 


U n rollo V V V Pasable 
VVVVV Muy bueno 
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Glass 


MIND GAMES 
En un planeta, más allá de la galaxia 
Trifida; donde reinan las sombras y el más 
tenebroso silencio, un abominable grupo de entes 
pseudo-conscientes, los metalliks, han construido 
tres ciudades que son el azote de la civilización 
humana. 
Mientras tanto, en la Tierra, conscientes de la 
amenaza que se cierne sobre el Universo, se 
prepara una movilización urgente de pilotos para 
bombarderos galácticos. Estos voluntarios tendrán 
la heroica misión de destruir los radares, las tres 
ciudades del planeta Glass y a todos los siniestros 
habitantes. 
Si quieres participar en esta lucha, no picrdas 
tiempo. Alístate cuanto antes. Con este juego de 
la casa Quicksilva, distribuido por Mind Cames 
España, tú puedes alcanzar el rango de Came 
Lord o Señor del Juego, siempre que mantengas 
en alto tus escudos y consigas derrotar al enemigo. 
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Quizás lo más destacable del juego sea el 
movimiento rápido y muy bien conseguido de las 
figuras, las máquinas y demás artefactos que hay 
que destruir. Esto, unido al brillante colorido que 
han logrado en los gráficos, da como resultado 
un gran realismo que no se ve desdibujado ni 
siquiera a la hora de disparar desde nuestra nave 
En ese momento descubrimos que no tenemos la 
oportunidad de elegir la dirección de los tiros. Lo 
único que podemos hacer es movernos en la 
dirección del enemigo, colocado en el centro de 
la pantalla y disparar, ya que los tiros están fijos 
en esa dirección. 
Cada vez que matamos un metallik, cambia 
de color y desaparece. Lo mismo pasa con 
casi todas las máquinas que mandan para 
destruirnos, excepto cuando aparecen los 
tanques. Entonces, todo se vuelve más real. 
Cuando logramos destruir alguno de estos 
galácticos tanques explota en mil pedazos llenos 
de color 
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De las antiguas y olvidadas tradiciones de 
unos países perdidos en el tiempo, surge con una 
fuerza incontenible, la leyenda del Templo 
Cobra. Los viejos pergaminos que cuentan su 
historia han sido recientemente descubiertos y 
una legión de nuevos aventureros están 
dispuestos a correr todos los peligros neccsarios 
para conseguir el tesoro del templo. 
La leycnda cuenta quc los sacerdotes de una 
milenaria cultura vivían dedicados al culto del 
dios Cobra, en honor del cual construyeron un 
grandioso templo y durante siglos fueron 
acumulando joyas, oro y toda clase de riquezas. 
Pero una profecía decía que el tesoro se perdería 
por un maremoto. Así los sacerdotes 
construyeron un inmenso barco, tan grande como 
una pirámide, en el que poder guardar todas las 
riquezas del dios Cobra, si el maremoto se 
convertía en realidad. 
La profecía se cumplió y el templo y su tesoro 
quedaron sepultados en las olas, muy lejos, sin 
que nadie se salvara para indicar su lugar exacto. 
Esta es la aventura que te propone el nuevo 
juego de Dinamic, con el que podrás unirte a 
todos los aventureros que, a través de los siglos. 
se han entusiasmado desafiando peligros de todo 
tipo, con tal de vivir el inolvidable momento en 
el que un mundo mágico y desconocido se 
desvelará ante nuestros ojos. 
El diseño gráfico produce la impresión de un 
mosaico en el que lo más llamativo son sus 
colores variados y atractivos. 
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Dinamite 
Dan 11, Blitzen 
contra 
los jóvenes 
ZAFIRO 
De nuevo tenemos a Dan enfrascado en la 
dura tarea de derrotar al loco doctor Blitzen. 
En esta ocasión, el sempiterno enemigo de Dan 
ha tenido la despreciable idea de introducir ondas 
subliminales destructoras de la mente en todos los 
discos de música más famosos del mercado. 
Evidentemente, el agente Dan no puede permitir 
esta horrible acción y ha puesto manos a la obra. 
La misión de Dan se desarrolla en el grupo de 
ocho islas que forman el cuartel del doctor 
Blitzen. 
En cada una de ellas, y después de haber 
desembarcado de su zepelín, Dan deberá buscar 
un master de donde se reproducirán los «hits» 
más famosos del momento y escuchado en una 
antigua «ro("f11a» de bar. No os preucupeis por 
Dan,puesto que como superagente que es, la 
música no le afectará. Después deberá repostar su 
zepelín y pasar a la siguiente isla, donde deberá 
repetir lo anteriormente dicho. 
Cuando Dan haya terminado su misión, tendrá 
que poner una bomba en el laboratorio del doctor 
Blitzen y salir corriendo, ya que si no lo logra en 
tres minutos..., ¡boommm!, se acabaron las 
andanzas de nuestro agente. 
Entretenido, ¿verdad
 
Dinamite Dan II, es de Mirrorsoft y está 
distribuido por Zafiro. 
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J ail Break, 
. 
 
evaSlon 
en Alcatraz 
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SERMA 


J <;tilo Break es el non:bre del último juego de la 
prestIgIOsa casa Konaml que ha llegado a 
nuestras manos. 
Con él tendremos la oportunidad de ,ntrar en 
un mundo tan oscuro y peligroso como es el de 
las prisiones de alta seguridad. 
En una de las más peligrosas han secuestrado 
al alcaide de la prisión y nosotros, abnegados 
policías. deberemos rescatado y acabar con el 
intento de evasión de la cárcel. 
Para ello, contamos con nuestra pistola 
reglamentaria y con las armas que iremos 
consiguiendo según vayamos salvando rehenes. 
i P,ro cuidado!, si dañas sin darte cuenta a 
alguno de los rehenes. se te quitarán las armas 
conseguidas con tan duro esfuerzo. 
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Las armas adicional,s son lanzacohel es y 
bombas de gases lacrimógenos. 
Los presos utilizan armas de fuego para 
intentar conseguir su evasión, además de otros 
objetos arrojadizos. 
Hay que tener cuidado con ellos, puesto que se 
esconden en las ventanas y se ocultan detrás de 
coches y barricadas. 
J ail Break tiene unos gráficos no muy 
elaborados y un movimiento que no pasa de ser 
simplemente aceptable, aunque la acción de su 
tema suple un poco la tibieza de los otros 
aspectos. 
Los juegos de Konami son distribuidos en 
España por Serma. 
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DINAMIC ,":" j 
A pesar de que la traducción al español del 
. L. 1\ 
título de este programa es "final del juego», A-- y
'< 
realmente deberíamos decir que con él empieza '" 
otra aventura de la, como su nombre indica, 
activa Dinamic. 
Más allá de la lejana galaxia Alfa Centauri se 
halla una de las más antiguas confederaciones 
planetarias. En ella, reina con mano de hierro la 
soberana Gremla. Su dureza es sólo comparable 
a la singular belleza de su rostro y cuerpo. Su 
inconmensurable poder se halla sólidamente 
asentado en las interminables legiones de 
guerreros Terminator que nutren sus ejércitos. 
Estos poderosísimos androide s están dotados de 
una limitada inteligencia que está bajo el control 
de Arkos, lugarteniente androide de Gremla, 
Cuando Arkos, tipo de androide con cerebro 
más potente, fue consciente de la tiranía de 
Gremla, se unió a las fuerzas siderales y se 
propuso acabar con el reinado de ésta. 
La tarea no iba a ser fáciL En su camino iba a 
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tener que vérselas con extrañas criaturas y 
máquinas asesinas. 
El juego cuenta con dos fases. La primera, el 
planeta cárcel, está habitado por robots de 
trabajo y Terminators. La segunda, el palacio 
imperial, es tu meta finaL Deberás entrar y 
destruido, pero previamente tendrás que atravesar la 
zona pantanosa que le rodea. 
La calidad del juego es buena y está apoyada 
en unos gráficos bien realizados, además de un 
movimiento acertado. 
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J 
N 0' prop",L, c:aliZa, un pro' ,ama 
que revisf' lo
 .talores de ada uno 
 bytes 
qUf' romporlen la pan a y si dicho valor 
cor' sponde a un' urna determinada, lo 
a 'lbiaremos po 1 de la nueva pluma. 
En princip' se la establecido que deberá 
cambiar to J lo f le se encuentre impreso en 
(nta L11 4 2, aungue haciendo ligeras 
1 .lIilC ,ones emos cambiar desde cualquier 
,u - J. a otr terminada. 
Se p < elegir, además, la zona de pantalla 
en ual se desea establecer dicho intercambio, 
n las dimensiones que se deseen. 
Podremos cambiar asimismo el valor de la 
tinta únicamente para medio carácter o una 
tercera parte del mismo, pudiendo conseguir de 
esta forma rótulos a dos colores. 
Debemos advertir que nuestro programa está 
preparado para ser utilizado en el modo 1 de 
pantalla, aunque la estructura del mismo puede 
utilizarse para el modo multicolor. es decir, para 
el modo O. 
Así, si por ejemplo, el carácter que se 
encuentra en las coordenadas de pantalla 1,1, 
está con tinta 1, Y deseamos cambiado a tinta 2, 
deberemos dar a la rutina los siguientes 
parámetros iniciales: 


\ 


Coordenadas ' 
Ancho ....,.. 


#0101 
2 (2 bytes por carácter en 
modo 1) 
8 (8 bytes por carácter en cual- 
quier modo) 


Alto 


Estos caracteres deberán ser introducidos 
respectivamente, en el registro doble HL, y en 
las variables del mismo nombre como indicamos 
a continuación: /" 


. 
Coordenada
 I HL 
Ancho .. "'.... Variable 'ANCHO) 
A o ."....,. V ariable 'AL TO) 


Como ya sabemos, para introducir dichos 
valores en las variables de programa, deberán ser 
traspasadas en primer lugar al acumulador, y de 
éste a la memoria. 
Veamos, pues, cómo actúa nuestra rutina. Ya 
hemos adelantado cuáles deberán ser las 
condiciones iniciales del programa, una vez 
introducidas, entramos en una rutina 
exactamente igual a la que hemos visto en un 
capítulo anterior cuando se hablaba de la 
impresión de pantalla. 
La única diferencia esencial que existe entre 
ésta y aquéllas, está en el bucle que se encargaba 


_ Código 
MAQUINA 


de pasar los valores de memoria a pantalla que. 
en este caso, se ha cambiado por la rutina 
encargada de cambiar los colores. 
Así pues, como lo que se pretende es cambiar 
todo lo que se encuentre con tinta 1, deberemos 
chequear si el byte leído está imprimido en dicha 
tinta. 
Para ello debemos tener bien claro dónde se 
encuentra la información para dicha tinta. 
Como hemos visto en capítulos anteriores, 
dicha información se encuentra en los cuatro bits 
más significativos de los bytes de pantalla, es 
decir: 


X 
7 


X 
6 


X 
5 


X 
4 


o 
3 


o 
O 


O 
2 


O 
1 


Por lo tanto, deberemos tomar cada uno de los 
byte s y comprobar si existe algún tipo de 
información en los cuatro bits menos 
significativos, de ser así, nos indicará que dicho 
byte puede llevar información de la tinta 2 ó 3, 
pero no de la que nos interesa a nosotros. 
Así pues, si en dichos bit s no se encuentra 
nada, es decir están a cero, podremos asegurar 
que dicho byte lleva información únicamente de 
la tinta 1 y, por lo tanto, deberemos proceder a 
cambiada por la 2. 
Dado que la información para la tinta 2 se 
t'ncuentra situada en los cuatro bit s de mt'nor 
peso, deberemos tomar los cuatros bits superiores 
de dicho byte, y colocados en los cuatro bit s 
inferiores, con lo cual habremos obtenido la tinta 
deseada. 
Gráficamente, dicha operación se haría de la 
siguiente manera: 


Byte inicial 


Byte final 


1011000 


00001011 


En código máquina, este trabajo se debe 
realizar a través de la operación de rotación de 
bits, para ello utilizaremos la instrucción de 
rotación hacia la derecha. 
Antes de hacer esto deberemos comprobar que 
el byte actual cumple las condiciones 
correspondientes a la tinta 1, para ello 
deberemos realizar lo siguiente: 


LD A,(HL); 


Tomamos el byte de 
pantalla 


AND 15 
JR NZ.PPAAS; 


Si no corresponde a 
la tinta 1 continua- 
mos con el siguiente 
byte. 
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MAQUINA 


Suponiendo que dicho byte contiene la 
información correspondiente al color 1, 
deberemos modificado de la forma que se indica 
a continuación: 


LD A,(HL) 
RRA 
RRA 
RRA 
RRA 
AND 15 
LD (HL),A 
Esta operación se deberá efectuar con cada uno 
de los bytes de la zona de pantalla en la cual se 
quiera alterar los colores ya existentes. 
De esta forma si deseamos transformar una 


l\S1ADO CARGADOR 
TO &A057 
10 FOR N==&A
S
+A 
READ A:S 
20 PO t<.E N,A >"' :1" · ERROR 
30 N PRl,
 
40 NEXT 
O&lEBA THE 
50 lF S R 50 85 

N DATAS 1 1 62,25, ' 1 60 213 
t;; 33" 50 86, , 
60 DATA 160 62,1 0 , 1 91 66,22
0 
7 o DATA ' 3 3 176, ' 16 
:'fA 235, ' 80 0 25, 0 71 


 :TA 2
5;
2

',2253
85

2;
,56 
100 DATA 2 4 21,124,2 8 8 103,2 4 
o DATA ' 24 19 " 56 


0 DATA 
0

:
0,0,1

92;
:86,160 
130 DATA 03 25,197, 32 8,126 
140 DATA 
1 
26,230,1
30 i5,1 19 
150 DATA '31 31,31, 93 16,209 
160 DATA 31'16'240,225,1 , 
7 0 DATA 35, 'O 0,0,O,0 
1 -rA 201,0, , 
180 DA' 


zona de pantalla de 10 caracteres de ancho por 
10 caracteres de alto, a partir de las coordenadas 
iniciales 5,5, deberíamos introducir los siguientes 
valores en los parámetros iniciales: 


HL .... 
ANCHO 
ALTO 


#0505 
10 
80 


Cuando se desed cambiar únicamente el color 
de medio carácter, deberemos introducir en la 
variable 'AL 1'0' el valor 4, ya que éstos son los 
bytes correspondientes a medio carácter. 
La operación contraria a la vista hasta ahora, 
es decir transformar todo lo que se encuentre de 
co]or 2 ;¡ ti n tal. podríamos realizarla 
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introduciendo en lugar de las instrucciones vistas 
anteriormente, las que indicamos a continuación: 


LD A,(HL) 
AND 240 
JR NZ,PPAAS 
LD A,(HL) 
RLA 
RLA 
RLA 
RLA 
AND 240 
LD (HL),A 
PPAAS: INC HL 


Como podemos comprobar sigue la misma 
estructura que la anterior, pero en este caso se 
realiza una rotación hacia la izquierda, con el fin 
de traspasar los bits de menor peso hacia los 
cuatro bit s más significativos que son los 
indicadores de color 1. 
Con esta misma estructura de programa. 
deberemos ser capaces de realizar operaciones de 
cambio de color para el modo O de pantalla. 
teniendo en cuenta cuáles son los valores para 
cada una de las tintas en dicho modo. 
Asimismo podremos realizar en modo 1 el 
cambio de los colores a tinta 3, o de ésta a las 
demás. 
Confeccionando varias rutinas de este tipo, 
podemos conseguir efectos bastante bonitos, ya 
que podremos imprimir en pantalla carácter a 
varios colores, con lo que pueden resultar 
presentaciones muy vistosas. 
Con lo que hemos visto hasta ahora, 
únicamente podíamos tener diferentes colores por 
caracteres en sentido horizontal, ahora bien, 
también podremos conseguir diferentes colores en 
sentido vertical, si únicamente traspasamos 
ciertos bits de los bytes de pantalla. 
Así, por ejemplo, si únicamente traspasamos 
dos de dichos bits, podremos conseguir caracteres 
rayados a dos colores, esto se puede hacer si 
colocamos en lugar de las rutinas anteriores, la 
siguiente: 



 


"d 


r 


LD A,(HL) 
AND 15 
.IR NZ,PPAAS 
LD A,(HL) 
RR (HL) 
RR (HL) 
RR (HL) 
RR (HL) 
OR (HL) 
LD (HL),A 
PPAAS: INC HL 


Como se puede comprobar. con la misma 
estructura de programa, se pueden conseguir 
multitud de efectos, con ]a única condición de 
cambiar adecuadamente la estructura de la rutina 
de transfiJrmación. 
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Dibujar en un Amstrad CPC 
. 
ya no tIene secre os... con 
«Art Studio»o ¡Sin tocar el teclado! 


Victor PRIFTO 


asta ahora todos los buenos programas de dibujo eran difíciles de 
mane 41; pero" The Art Studio" une al mejor software de diseño la forma 
más sencilla e intuitiva de utilización. 


P mbablemente 1o, pmgemn"' de dibujn 
y diseño son los más populares en el segmento 
de programas que se encuentran a medio 
camino entre los recreativos y los de gestión, 
ocupando la tierra de nadie del software de 
utilidad. 
En este mismo campo, comentábamos hace 
unos meses uno de valor excepcional para hacer 
música por ordenador; estamos hablando del 
Music System, una obra única e irrepetible que 
tachábamos como la envidia del software de 
nueva generación. 
Poco tiempo después. Rainbird, la casa 
productora de aquella revolución, nos vuelve a 
sorprender gratamente dándole la puntilla al 
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Véase hasta qué 
punto se puede 
detallar un 
dibujo con «Art 
studion. 
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software clásico. y abriendo en los ordenadores 
domésticos el camino del Macintosh en su más 
puro estilo. 
Dispuesta esta casa británica a hacerse con la 
biblioteca de utilidades de más calidad del 
mundo, esta vez nos deleita con un programa 
de diseño por ordenador. Bajo el nombre de 
Art Studio se esconde la mejor obra realizada 
nunca en la historia de los ordenadores 
domésticos, digna de grandes sistemas con 
muchos Ks de memoria y de una ejecución y 
diseño jamás vista en nuestros monitores. 
La realización del programa se ha hecho con 
los ojos puestos en el usuario que no quiere 
complicarse la vida con la continua consulta del 
manual, por lo que toda la infÍJrmación del 
programa aparece en pantalla lista para su 
consulta y ejecución. 
Fieles a la metodología utilizada por el 
Macintosh e imitada posteriormente por el 
Gem. toda la selección de las distintas tareas a 
realizar se lleva de forma gráfica e intuitiva 
gracias a la utilización de menús y submenús 
que automáticamente se despliegan en la 
pantalla, complementados con símbolos gráficos 
para las opciones más complejas. 
Durante toda la ejecución, nos movemos por 
la pantalla con un cursor en forma de flecha 
con el cual señalamos la casilla del menú que 
queremos utilizar. Al pulsar en la porción 
correspondiente a cualquier opción, surgirá 
sobre la pantalla el submenú corresp'i:mdiente, a 
través del cual nos moveremos de nuevo hasta 
señalar la operación deseada tras la cual será 
ejecutada o nos llevará a un nuevo submenú. 
Con esta filosofía, las largas jornadas de 
experimentación que nos costaría llegar a 
manejar un programa de similar potencia, pero 
basado en los métodos clásicos, quedan 
reducidas a una sola sentada, tras la cual 
cualquiera puede obtener espectaculares 
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resultados, aunque sea la primera vez que 
maneJa un programa de esta clase. 


Menú principal 


La pantalla de dibujo está presidida por el 
área reservada al menú principal, concentrado 
en una franja de cuatro centímetros de altura, 
en la parte superior de la pantalla, donde se 
encuentran todas las instrucciones fuente del 
programa. 
En la fila superior y comenzando de izquierda 
a derecha, tenemos las coordenadas del cursor, 
Print, File, Palette, Paint, Misc y Undo. En la 
inferior: Windows, Fill, Magnify, Text y 
Shapes; a la derecha están situadas las flechas 
que desplazan la pantalla de arriba/abajo. 
Estas flechas son de gran importancia a la 
hora de aprovechar la totalidad de éstas para 
dibujo. Debido a la utilización de la cabecera 
como menú principal, ésta no puede ser pasada 
a la parte inferior, por lo que para dibujar en 
esa porción las flechas permiten desplazar la 
pantalla hacia abajo pudiendo realizar en la 
zona oculta por la misma las operaciones 
necesanas. 
Cada palabra de ella, está encerrada en un 
rectángulo, de manera que al posicionar el 
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Todo un mundo 
de colores y 
fÚrmas a golf,e 
de Juystick. 


cursor dentro de cualquiera de ellos y pulsar el 
botón, automáticamente se produce la aparición 
del menú correspondiente a esa opción. 
A estas alturas es importante aclarar que The 
Art Studio se puede utilizar con el ratón AMX. 
el Kempston o cualquier joystick de lo
 
existentes en el mercadu. con los que el 
movimiento del cursor se realiza de una forma 
mucho más eficiente que con el tecladu. 


Dibujando 


The Art Studio trabaja en dos modos 
distintos de resolución: En el Modo 1 
disponemos de cuatro colores con una resolución 
de 320 en horizontal x 200 pixels en vertical. 
El Modo 2 es monocromo con la máxima 
resolución del Amstrad: 640 en horizontal x 200 
en vertical. 
U na vez fijado el modo de resolución en el 
que vamos a trabajar, podemos comenzar a 
esbozar nuestros primeros trazos en la pantalla. 
Para dibujar seleccionaremos en la cabecera 
P AINT, Y nada más apretar el pulsador 
tenemos el submenú correspondiente. La 
primera opción nos permite seleccionar el color 
de la tinta con la que vamos a pintar. 
Con la siguiente, podemos definir el grosor y 
la forma del trazo. Disponemos de un total de 
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16 tipos distintos, que van desde el de un solo 
pixel. hasta el rectangular de trazo grueso, 
pasando por las distintas anchuras 'éle trazo 
diagonal. El dibujo se reali£a ursando el 
disparo, cuando dejamos dte pulsar, el lápiz se 
mueve pero no traz
. 
í de fácil. 
Para ejecutar sombrcados y distintas 
tonalidades oscura , nada mejor que el spray, 
con él podemos escoger entre ocho tipos de 
densidad df' ::oncentración. 
La siguIente opción nos permite utilizar unos 
pmceles muy especiales, con los que tenemos 16 
tip
 de trazo a elegir, entre los que 
encontramos desde trazo redondo a cuadrado y 
hasta distintos símbolos como caras, iniciales, 
etc. 


Art Studio permite ejecutar y diseñar las 
opciones más complejas jamás previstas 
para un ordenador doméstico 


Por si todos los tipos de piumas y pincel 
todavía no se ajustan a nuestros gustos, el 
editor de pinceles permite fabricar nuestro 
propio tipo, el cual se incorporará a la tabla de 
los dieciséis anteriores. 
Con el objeto de no olvidar en qué modalidad 
de dibujo nos encontramos, el cursar se 
transforma en un lápiz, un spray o un pincel 
que nos acompaña a lo largo de todo el trazado. 
El borrado se realiza cambiando el color de la 
tinta por el del fondo y pasando el cursar por la 
zona a borrar. 


Colores 
El Amstrad posee un total de 27 colores de 
los cuales solamente se pueden utilizar 
simultáneamente 16; nuestro programa en el 
Modo 1 sólo es capaz de usar 4 colores, los 
cuales podemos elegir a voluntad entre el total 
de la gama del Amstrad. 
Esta selección se hace pulsando la casilla 
P ALETTE de la cabecera, inmediatamente 
aparece la carta de colores, en la que 
seleccionaremos los colores de papel, tinta, tinta 
1, tinta 2, borde y velocidad de parpadeo. 
La selección se realiza por unas escalas que 
contienen 27 divisiones, y se puede hacer 
directamente colocando el cursor en la división 
requerida o bien utilizando las flechas situadas a 
los lados, que a cada pulsación avanzarán en 
uno el indicador de color. 
Cada vez que efectuamos un cambio en cada 
escala de color, éste es reflejado 
automáticamente en las porciones de dibujo que 
no tapa la carta, conservándose al volver a la 
pantalla de dibujo, una forma fácil y eficaz de 
cambiar los colores de nuestra obra. 
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Miscelánea 


A estas alturas podemos tratar la parte del 
programa que fija las características principales 
que van a regir el curso de todos nuestros 
dibujos, éstas están contenidas en el apartado 
MISC y permiten las siguientes acciones: 
Hacer posible la visión de la pantalla 
completa eliminando la cabecera del menú 
principal. 
Limpiar la pantalla. Es importante destacar 
que el programa contiene en la cabecera la 
opción UNDO. que permite devolver la pantalla 
a la situación en que estaba antes de realizar la 
última modificación por opción de menú, de 
esta forma si borramos la pantalla completa 
podemos recuperada con UNDO. 
También, después de dibujar varias líneas 
con trazo diferente, o cualquier otra acción que 
implique cambio de opción, UNDO permite 
devolver la pantalla a su estado anterior 
eliminando las últimas modificaciones. 
Las siguientes funciones permiten seleccionar 
el modo de pantalla con el que vamos a 
trabajar. 
Podemos establecer saltos de determinada 
longitud del cursor, de forma que podemos 
obtener importantes puntos de referencia a la 
hora de utilizar proporciones en los dibujos, se 
puede fijar el salto en vertical u horizontal con 
las longitudes de 2, 4, 8 y 16 pixel, o anulado. 


Input devices 


Dentro del menú de MISC se encuentra esta 
opción, con la que fijaremos el tipo de control 
con que vamos a manejar el cursar. 
lNPUT DEVICES, tiene su propio submenú 
que especifica todas las características y clases 
que siguen a continuación. 
Podemos trabajar con las teclas de cursar, 
joystick, ratones AMX y Kempston y definir las 
teclas que mejor nos parezcan, la mejor política 
es utilizar el joystick y el teclado 
simultáneamente con lo que el primero nos 
servirá para los desplazamientos largos, y las 
teclas de cursor para el dibujo de precisión. 
En el mismo submenú podemos cambiar la 
forma del cursor de la flecha a la más precisa de 
punto de mira, la cual se mantendrá en todas 
las formas de dibujo, sin aparecer el lápiz, el 
pincel, el spray y demás signos. 
La siguiente opción activa o desactiva la 
representación de las coordenadas del cursor en 
la cabecera. 
Si la velocidad del cursor nos parece algo 
lenta, lo que se aprecia en largos 
desplazamientos de lado a lado de la pantalla en 
busca de la cabecera, podemos acelerada 
utilizando el «Fast cursan>. 
Volviendo a MISC, la última función permite 
grabar el programa personalizado con nuestros 



colores, tipo de cursar, modo a emplear, tramas 
definidas y demás variantes que preferimos 
utilizar en nuestros dibujos. 


Formas geométricas 



 


Ciertas formas geométricas sencillas se hallan 
definidas de tal forma que para su trazado basta 
con utilizar ,la opción adecuada. 
La primera opción permite seleccionar el 
color de la tinta a usar. 
Tras ella se encuentran el dibujo de puntos, 
el de líneas, el de líneas encadenadas en las que 
el final de una, es el principio de la siguiente, 
rectángulos, triángulos, círculos y rectas 
concurrentes en un punto. 
La opción más espectacular, contenida en 
ELASTIC, permite ver el resultado de nuestra 
figura antes de fijar el punto final, así cuando 
trazamos un círculo, por ejemplo, vamos viendo 
cómo éste crece o se contrae hasta la proporción 
deseada, alcanzada la cual, un toque de disparo 
lo fija al tamaño definitivo. El mismo efecto se 
obtiene con rectas, triángulos y rectángulos. 


Ampliación 


'. 


U na de las cosas más espectaculares de este 
programa es su rutina de ampliación, con ella 
podemos aumentar cualquier sección de nuestro 
dibujo en dos, cuatro u ocho veces. 
Corresponde en la cabecera del menú a 
MAGNIFY y una vez seleccionado el tamaño, 
el cursor se transforma en una lupa que 
colocamos en la porción de dibujo deseada, con 
un toque de botón, pasamos a la pantalla de 
ampliación. 
Dos bandas, una vertical y otra horizontal 
situadas arriba y a la izquierda de la pantalla, 
permiten mover la porción de dibujo contenida 
en la pantalla de ampliación, de esta forma 
podemos llegar a cualquier parte del mismo sin 
salir de esta pantalla, para hacer un cambio de 
tamaño tampoco es necesario salir, pudiendo 
pasar de 2 a 8, o de 4 a 2, etc. 
En esta pantalla podemos dibujar o borrar 
cualquier punto, obteniendo, gracias a la 
ampliación, una precisión inmejorable. En la 
ampliación a ocho veces es posible utilizar una 
cuadrícula para identificar la posición de los 
puntos y conocer su exacta localización. 


( 


Superficies 


El relleno de superficies es otra de las 
brillantes implementaciones de este programa, 
los rellenos en distintos colores se ejecutan de 
forma rápida y sin fallos. 
Sin embargo, la opción más expectacular es la 
de texturas. El relleno con texturas permite 
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utilizar un total de 32 tramas distintas, en cada 
una de las cuales podemos elegir dos colores, 
uno para el fondo y otro para el punteado. 
Estas tienen la facultad de poder superponerse 
borrando la de abajo o utilizar la transparencia. 
con lo que el espectro de tramados posibles 
aumenta en progresión geométrica. 
También existe un editor de texturas con el 
cual podemos crear nuestra propia trama e 
incluida en el catálogo de las mismas para su 
uso posterior. Una copia del programa con 
nuestros diseños de tramas sería muy ventajosa. 


Ventanas 


El tratamiento de ciertas porciones del dibujo, 
de manera distinta al resto. es posible gracias al 
uso de las ventanas. 
Con ellas acotamos una porción determinada 
-que en el caso más extremo puede ser toda la 
pantalla- y la procesamos a nuestra 
convenIenCIa. 
Las acciones principales a realizar sobr' h 
superficie acotada, pueden ser de COpIO '11 
cualquier parte de la pantalla, de mO\ Imiento y 
de propio borrado. 
En otro nivel de transformar-ion más 
profundo, las ventanas <¡on subceptibles de 
movimientos de giro, pnI cuartos de vuelta, 
éstas también se pue(1_n refle' ar sobr eje 
vertical u horizont-al. 
Pero, sin lucrar a dudas, la fu.1ció
 más 
tentadoTa
 por sus grandes ¡ Jsib; ¡dades, es la 
de Cdmbió de escala, COI ella na vez fijada la 
',entana fuente pode11].J 
 encr en cualquier 
parte de la pantall
 un- copia a escala. con sólo 
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construir con el cursar un rectángulo que 
contenga las nuevas dimensiones de la misma. 
La cantidad de efectos y posibilidades de éstas 
y la repetición de formas a distintas escalas, 
hacen que nuestras composiciones puedan ganar 
en ritmo y vivacidad, cuajando la pantalla de 
formas fácilmente generables a partir de la 
figura fuente de la composición. 


Texto 


Una de las principales ventajas de los 
programas de dibujo, es que podemos incluir 
texto en nuc<;tras composiciones, para realizar 
títulos, leyendas, pies, acotaciones, ete. 
The Art Studio contempla esta posibilidad en 
toda su amplitud, demostrando una vez más 
que programas de este tipo SI' encuentran a 
años luz. 
La escritura se puede realizar en cualquiera 
de los cuatro colores, escribiendo horizontal o 
verticalmente, según nos apetezca. 
El tamaño de la letra puede ser fijado en 
función de nuestras necesidades. La forma de 
elegido se realiza fijando la anchura y altura de 
los caracteres. Existen los siguientes tipos en los 
cuales habrá que combinar la anchura con la 
altura: ancho normal, doble anchura, triple 
anchura, largo normal, doble altura y triple 
altura. 
El resultado, también se puede obtener en 
letra normal. siguiendo e! conjunto de caracteres 
estándar del Amstrad. en itálica o en letra 
enfatizada. 
En e! caso de que la letra del Amstrad pueda 
resultar aburrida, en e! disco están contenidos 8 
tipos distintos de letra, los cuales pueden ser 
cargados a la memoria mediante el editor 
fuente. 
Si aún no estamos satisfechos con estos tipos 
de letra, el editor nos permite diseñar nuestro 
propio juego de caracteres el cual podemos 
grabar en disco. 
Todos estos nuevos tipos de letra también 
pueden ser procesados, alargándolos, 
ensanchándolos, enfatizándolos o inclinándolos. 


Disco e impresora 


La opción FILE de! menú principal se 
encarga de! trabajo con el disco, con ella 
podemos cargar o grabar cualquier pantalla, 
realizar un catálogo del contenido de mismo, 
borrar ficheros y realizar mezclas de los 
mismos. Todo con un uso eficiente y bello de 
los iconos. haciendo que la única cosa que 
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tengamos que teclear sea e! nombre que 
queremos ponede a la pantalla que grabamos 
desde el programa al disco. todo lo demás a 
base de cursar. 
Después de haber realizado un dibujo, qué 
menos que obtener una copia por impresora, 
para ello PRINT nos da la solución. 
Esta copia puede ajustarse a distintos 
tamaños, horizontal y verticalmente, de esta 
forma podemos fijar independientemente una 
escala horizontal y otra vertical, el tamaño varía 
de 1 a 5 en cada dirección, haciendo que 
nuestras reproducciones se ajusten a los tamaños 
deseados. 
También se puede elegir entre densidad 
simple y doble densidad, obteniendo una mayor 
resolución en el segundo de los casos. 
Si el formato de impresión es demasiado 
grande para nuestra impresora, el sub menú nos 
permite imprimir a lo ancho, obteniendo un 
aprovechamiento total de las dimensiones del 
papel en reproducciones de gran tamaño. 
El programa está preparado para utilizar la 
impresora Amstrad DPM -1 o cualquier Epson 
compatible. otro tipo distinto de impresoras 
requiere la introducción de un determinado 
número de parámetros en un programa Basic, 
el cual grabado en disco será cargado 
automáticameme por el Art Studio; el manual 
explicará la forma de realizado. 


El 'programa puede usarse con ratón, 
Joystick o teclado, Ante todo, comodidad 


El block que acompaña al programa es claro 
y completo. A lo largo de 54 páginas se 
desentraña cada una de las opciones de esta 
obra, explicando detenidamente su 
funcionamiento y los resultados que producirán 
en nuestros dibujos. 
Para los que quieren aprender sobre la 
marcha basándose en e! desarrollo de un 
ejemplo práctico. las páginas finales ofrecen un 
ejemplo de trabajo, en el que utilizando una 
pantalla de las de demostración St' nos enseñd 
paso a paso las facetas más intere;antes de Art 
Studio. 
Entre toda esta montaña de software que nos 
invade, hay unos productos que destacan por s 
calidad y esmerada elaboración; los de la ca
d 
Rainbird, el Art Studio es buena muestra.:1 Ir 
que queremos decir; programas estudi ,.:1 . asta 
el último detalle y pensados para <]'Ie su lanejo 
no requiera horas de est'
dio an t s de onernos 
manos a la obra, hac<nd) a 1; ve que esta 
sencilla utilización .G SI impedImento para 
calificado comr> 
J II' -Jor programa de dibujo de 
la historia d Amstrad. 



Esta sección está dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRES
: SA. AMSTRAD Semanal. Apartado de Correos 54.062. 
28080 J1adrid. ¡ABSTENERSE PIRATAS! 


. . . . . . . . . . . . . . 


Vendo Amstrad e rc 664 
(monitor color) en perfécto 
estado. Cinco diskettes con 
Cr/M, Pascal, Lago, 
Mastercalc, Amsfile y otras 
muchas utilidades y juegos en 
quince cassettes. Joystick, cable 
de conexión para cassette, 
cubierta protectora para el 
teclado y manuales. Todo por 
80.000 ptas. Intresados llamar 
al (91) 618 14 69. Móstolcs 
(Madrid). 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464 
monitor color comprado en 
marzo 1985 como nuevo. con el 
manual en castellano; con el 
lote incluyo muchos juegos en 
cassette. Todo por 70.000 ptas. 
Jaime SachÚ. Te!. (93) 
307 61 12. Horas despacho. 


. . . . . . . . . . . . . . 


Deseo contactar con usuarios 
de Amstrad 664 y 6128, para 
intercamhios «serios" de ideas. 
También me gustaría saber si 
existe algún club de Amstrad 
en Las Palmas. Podéis 
llamarme al 26 08 50, en horas 
de oficina. Federico Gracia Pérez, 
Urb. Parque Central, b!. 2, 
ll-/D, Las Palmas de Gran 
Canaria. 


. . . . . . . . . . . . . . 


Ofrezco monitor Amstrad 
GT 65 fósforo verde más 
diferencia, a cambio de monitor 
color Amstrad C TM 644 para 
CPC 128. Mi monitor fue 
comprado en agosto 86. 
Interesados llamad al 
te!. 450 52 89, o escribid: José 
Luis Novo. San Valeriano, 4, 
2. o izqda. 28039 Madrid. 


Fe de erratas 


Pese a nuestra vigilancia 
más intensa. los duendecillos 
de imprenta han vuelto a 
reali.lar travesuras. 
Esta ve.l han ocasionado 
un pequeño embrollo con los 
trucos númeroS 26 y 27, 
aparecidos en las páginas 21 
y 22 de AMSTRAD 
Semanal, en el número 71- 
El programa cargador que 
aparece al final del truco 
número 26 pertenece al 27, o 
sea, a Cómo llenar áreas 
con color usando el 
Firmware. 
Por otra parte, el listado 
cortado en la línea 10 del 
truco número 27, continúa 
en la página anterior, al final 
del truco número 26, a partir 
de «20 LD, A, 170; 
NéMERO DE TRAMA EN 
DECIMAL". El texto que 
viene a continuación del 
listado también pertenece al 
mismo. 


Urge vender Amstrad PCv\! 
8256 por 130.000 ptas. Regalo 
a quien compre el ordenador 20 
discos con los mejores 
programas que existen en el 
mercado. Interesados contactar 
con Rogelio. Te!. (96) 252 04 31. 
Chiva (Valencia). 


. . . . . . . . . . . . . . 


Compro la antigua placa 
\Tortex SP-512 de 64K. 
Interesados llamar o escrihir a 
Esteban Tarrida. Secretario 
Coloma, 96, 7. o 2. a. 08024 
Barcelona. Te!. 210 61 83. 


. . . . . . . . . . . . . . 


Vendo ordenador Amstrad 
CPC 464 con monitor color. 
Incluyo manual en castellano, 
10 programas originales y 
joystick. Todo está nuevo sin 


Mercado 
COMUN 


. . . . . . . . . . . . . . 


uso. Por 78.000 ptas. Llamar al 
tl'l. (92.5) 78 58 93. Juan Gómez. 
General Mola, 3. Fuensalida 
(Toldo). 


. . . . . . . . . . . . . . 


Bienvenido al club para 
Amstrad, MSX y Spectrum. 
Estamos buscando socios a los 
que les enviaremos un carnet y 
un juego gratis además de 
mapas, trucos, pokes... Pide 
más información al apartado de 
correos 35 de Puerto Real. 
11510 Cádiz. 


. . . . . . . . . . . . . . 


Club de amigos usuarios de 
Amstrad, desearía contactar 
con otros clubs o nm 
particulares para intercambio de 
juegos, trucos, utilidades, ete.. 
Dirigirse a: Bartolomé 'f'ruyo!. 
Plac;a des blanquer, 17. Inca 
(Mallorca). 


. . . . . . . . . . . . . . 


Intercambiamos programas, 
trucos e ideas para Amstrad 
CPC 464. Disponemos de 
buenos juegos. Los interesados, 
(y si son de Avila mejor), 
escribir a: José Ignacio 
Hernández. Alfonso de Alontalvo, 
1, 2. u 2. u. U.5001 
vila. O 
telefonear al 22 74 9U de "lvila de 
lunes a viernes. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 464 
munitor fósforo verde, 
comprado en abril 86 con 
garantía; lo he usado muy 
poco. 60.000 ptas. Escribir a: 
F. Carbunell. Doctor Fleming, 5. 
Almusafes (TTalencia). 


. . . . . . . . . . . . . . 
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CONTABILIDAD 
GENERAL (CONFAS) 
MICROGESA 8256-8512 
Este programa de Microgesa 
utiliza el lenguaje MBasic Compi- 
lado y cuenta para su ejecución con 
una entrada de datos muy rápida 
y sencilla de manejar. 
Entre las características que de- 
finen al CONFAS están la actua- 
lización automática del Mayor, 
Diario, etc; la incorporación del 
listado de IV A, ya legalizado, y la 
generación automática del apun- 
te del IV A. Además de esto, este 
programa de CONTABILIDAD 
GENERAL permite la predefini- 
ción de los asientos de apertura y 
regularización, con posibilidad de 
llevar a cabo cualquier tipo de mo- 
dificación. 
Finalmente, consigue el balan- 
ce de la situación configurable. 
Este programa, que enlaza con 
el FAST, cuesta 24.500 ptas. 


LEO.EOS V:.2.01 


LEO COMPeTER 8256-8512 
La casa Leo Computer presen- 
ta este programa de contabilidad 
diseñado para la pequeña y media- 
na empresa o para profesionales li- 
berales, que contempla un máxi- 
mo de 1.000 cuentas definiblcs por 
el usuario, control de entradas v 
salidas, extractos de cuentas co
 
totalizadores, balances por fechas, 
mensuales y totales y listados pa- 
ra consulta por pantalla y por im- 
presora, así como control de ven- 
cimientos. 
Su precio (IV A incluido) es de 
14.500 ptas. 


LEO.FAC V:'2.03 


LEO COMPUTER 8256-8.)12 
Se trata de un programa de fac- 
turación de la casa Leo Computer 
que nos permite la edición de fac- 
turas y recibos de una forma fácil 
y rápida. Contempla un archivo de 
clientes con todos los datos nece- 
sarios para poder editar, posterior- 
mente, las facturas. 
Al mismo tiempo, dispone de un 
archivo para los artículos, con de- 
nominación y precio, emite etique- 
tas de clientes y artículos, balance 


C/3-\
O'f,O 
de 


SOFTWARE 
pcw 


mensual de facturación e IV A y, 
además, contiene gestión de repre- 
sentantes. 
Cuesta (IVA incluido) 25.000 
ptas. 


LEO.IVA V:'2.00 


LEO COMPUTER 8256-8512 
Este programa gestiona la entra- 
da numerada de facturas del IV A 
soportado y la emisión de facturas 
propias del IV A repercutido. Rea- 
liza los totales por pantalla y ba- 
lances trimestrales, así como la sa- 
lida por impresora de la cantidad 
resultante para su liquidación. 
Es de la casa Leo Computer y 
su precio, con IV A incluido, es de 
14.500 ptas. 


RPA.ETIQUETAS 
MAILING 


RPA SISTEM INC. 8256-8512 
Este programa está destinado a 
la realización de todo tipo de eti- 
quetaje para mailing y, además, 
ofrece la posibilidad de elegir el ti- 
po de letra y formato, siempre den- 
tro de las posibilidades que ofrece 
el programa. 
Cuesta 7.500 ptas. 


RPA.MULTICALC 


RPA SISTEM INC. 8256-8512 
Se trata de una hoja de cálculo 
de gran rapidez y de sencillo ma- 
nejo. Sus características principa- 
les son: 
Más de 60 filas. 
Desde "A" a... «Z" colum- 


nas. 


Posibilidad de introducir 60 
fórmulas de 60 caracteres. 
- Admite las siguientes funcio- 
nes matemáticas: seno, coseno, 
tangente, arcotangente, logaritmo 


decimal, logaritmo natural, ade- 
más de funciones predefinidas (to- 
taliza y subtotaliza automática- 
mente). 
Permite etiquetado de cel- 


das. 


Realiza gráficos. 
Obtención de datos por im- 
presora. 
- Gestión automatizada del 
disco. 
Su precio es de 14.500 ptas. 


, 
GESTION 
DE VIDEOCLUBS 
(VIDEOGES) 
MICROGESA 8512 
Microgesa ha lanzado este pro- 
grama, en lenguaje MBasic Com- 
pilado, pensando en la gestión de 
los videoclubs. Con él quedarán to- 
talmente controladas las entradas 
y salidas de películas, tiempo de al- 
quiler y número de socios, y regis- 
tra hasta siete modalidades de al- 
quiler de películas. 
Además, ofrece la posibilidad de 
realizar todo tipo de estadísticas, 
genera recibos, listas de direccio- 
nes y cualquier otro tipo de datos 
que se deseen añadir. 
Su capacidad global permite la 
inserción de 5.500 títulos de pelí- 
culas y de 2.500 socios. 
Cuesta 31.000 ptas. 
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LISTADO 1 


5 O
 ERROR 60TO 20000 
10 GO$t}B 11440 
20 6úSIJ8 11260 
2S total=O:contador=O 
30 PRINT FNloc$(10.4);"L 1 S T A D O A R TIC U L O 


i:: 11 
.
 


40 PRI
T FNloc$\SO,B);"Fecha de expedlcl0n : " 
100 PRINT FNlocS(20,20);"Cod. Primer articulo ." 
110 PRINT FNloc$(20.22);"Coó. Ultimo articulo ." 
120 

=73:y
=8:alfat=2:cap
=5:dec
=0:60SUB 10000 
125 IF tl="" THEN CHAIN "menu 
130 fecha$=t$:GÚ
UB 10310 
140 IF feCha$="fallo l " THEN 120 ELSE fechae$=fecha$ 
145 PRINT FNloc$(73,8);fecnaeS:" " 
310 ,%.=4f,:y
=¡O:cap
=4:dect=0:ajfat=2:6DSUB 10000 

20 :F tl="" THEN 120 ELSE codll=STRIN6S'4-LEN(tS),"O" 
}-:.t$ 
330 PRINT FNloc$(4b,20);codl$j" " 
340 xt=46:yZ=22:alfat=2:capZ=4:dec
=0:GÚSUB 10000 
35C I> t$="" THEN 310 El SE cod2$=STRIN6$(4-LEN(t$)."0" 
)+t$ 
360 PRINT FNloc$(46,22);cod2$j" " 
36
 PRINT FNloc
\5!28):"Pantalla (t!) - Impresora: To 
tai (f3J ParcIal (f5) : M,:o$=INPUT$(l) 
362 iF 01{>"1" AND oS{,"3" ANO o
{)"S" THEN 361 
363 PRINT FNloc$(l,!):GOSUB 11500:PRINT FNloc$(1,1) 
370 PR!NT FNloc$(5,28)¡"CúRRECTO (INS' CANCELAR (CAN) 
: ";:60SU8 11380 
375 PRINT F
10c$(10,2);" " 
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Aquí está la cuarta 
parte de este magnífico 
programa de facturación 
para el PCVI{ tanto 
8256 como 8512. Los 
lectores que se hayan 
«enganchado» en este 
, 
numero sepan que se 
trata de una aplicación 
profesional, de ahí su 
longitud. 


.380 GOSIJS 11500 
390 IF blen
=0 THEN 340 
400 cad$=STRIN6$(63,CHR$(O»):nomfIGatS="a:cartl tex":n 


Dmfilnd$=na:(arti.key
:numfl
=5 
410 ran
=l:cjaf=cDdl$:tlP
=i 
4¿;j GúSUE: 10440 
430 
. ferror%.<>0 TbE
 20000 
440 nOMbre$=
IO$(cad$¡1!29) 
.45 lva$=MIO$(cad$,30,!) 
450 direcclon=CVS(MID$(cad$,31,4)\ 
460 poblacion=CVS(MID$(cad$,3S..) 
470 domiciliaclonl=MIúl(cad$.39,lS) 
480 importe$=
IO$(cad$,54,b) 
490 cod1$=MIO$(cad$,60.4) 
500 IF 0$="3" THEN G05UB 3000:605UB 2000 
S02 IF 0$="5" THEN GOSUB 4000:(051)8 2500 
504 IF 0$="1" THEN G05UB 5000:605UB 6000 
510 cad$=STRING$(63,CHR$(0»):nomfidat$="a:carti tex":n 
omfiind$="a:carti.key":numfit=5 
520 ranZ=1:cla$=cod!$:ti
Z=2 
530 GOSUB 10440 
540 IF ferror
{)O ANO ferrorX{)103 fHEN 20000 
550 IF ferrort=103 ANO 0${)"1" THtN LPRINT CHR$(12):Gú 
TOlO 
555 IF ferrort=103 AND 0$="1" THEN o$=INPUT$(l):GOTO 1 
1) 
560 nombre$=MID$(cad$, 1,29) 
565 lYa$=
IDI(cad$,30J1) 
S70 direccion=CVS(MID$(cad$,31,4») 



5BO poblacion=CVS(MID$(cad$,35,4)) 
590 domiciliacion$=MID$(cadS,39,15) 
600 importe$=
ID$i(ad1,54;6) 
610 codl$=HID$(cad$,60,4) 
620 IF codl$)cod2$ ANO 0${}"1" THEN LPRINT CHR$i12):GO 
TO 10 
522 IF codl$}cod2$ ANO 0$="1' THEN o$=INPUT$(l):GOTO 1 
O 
625 contador=contador+l: IF contador=60 ANO 0${}'1" TH 
EN LPRINT CHR$(12):contador=0:IF 0$="3" THEN GOSUB 300 
O ELSE GOSUB 4000 
627 IF contador=26 ANO 0$='1" THEN u$=INPUT$il):contad 
or=O: GOSUB 5000 
630 IF 0$="3" THEN GOSUB 2000 
632 IF 0$="5" THEN GOSUB 2500 
634 IF 0$="1' THEN GOSUB 6000 
640 GOTO 510 
2000 REN ---------------- impresion 
2010 LPRINT USING"\ \ \ 
##,### #'#,'## \ 
$jdireccionjpoblacionjdo 
mlcillacion$jimporte$ 
2030 RETURN 
2500 REM ---------------- impresion 
2510 LPRINT USING"\ \ \ 
#,##"jcodl$jnombre$jd¡reCClOn 
2520 RETURN 
3000 LPRINT "L LIS T A T DAR TIC L E S ":LPR 
INT TAB(40);"

 Data del llisiat : ";fechae$ 
3010 LPRINT 
3015 LPRINT "CODI 
P.V.P P.C,U DISTRIBUIDOR 
3020 LPRINT 


\ \ 


\ . 
\"jcodl$jnombre 


OESCRIPCIO 
DATA" 


M____ ___________________________ _ 


_______________ ______H 


3030 RETURN 
4000 LPRINT "L LIS T A T O' A R TIC L E S ':LPR 
INT TAB(40)j"U Data del llistat : "jfechae$ 
4010 LPRINT 
4020 LPRINT "CODI DESCRIPCIO 
P.V.P " 


4030 LPRINT 


------" 


4040 RETURN 
5000 PRINT cl$:PRINT "L LIS T A T DAR T ! C L 


E S n 


5010 PRINT 
5015 PRINT "CODI DESCRIPCIú P 
.V.P P.C.U DISTRIBUIDOR DATA" 
5020 PRINT ---- --------------------------- 


j 


5030 RETURN 
6000 REH ---------------- impreslon 
6010 PRINT USING"\ \ \ 
1,1#1 tlt, l.. \ 
idireccionipoblacionidom 
iciliacion$jimporte$ 
6020 RETURN 
10000 REM --------- control de digitos---------------- 


\ \ 


\ 11# 
\"jcodl$inombre$ 


I 10010 RE" x
=columna 
I 


cap
=capacidad 


y
=fila 


. 
GESTI · 


10020 REM dec
=decima1es alfa
=nu.erlco(l) alfa 
numericos (2) a1fanumcom (3) 
10030 REM -------------------------------------------- 


10040 PRINT FNloc$(x
,y
)iSTRING$(caD
+dec%+l," "i 
10050 t$="":t=O:r$="":fallo
=O:punto
=O - 
10060 PRINT CHR$(7) 
10070 xU=xS 


100eo PRINT FNlú(;(xlt,y
};:r
=rNf'U
$(í} 
10090 r=ASC< r$) 
10100 IF r=13 THEN 10170 
10110 IF r{32 OR r)255 THEN 10080 
10120 IF r=127 ANO t}O THEN t=t-l:t$=LEFT$(t$,t): PRIN 
T FNloc$ix
,y
)jt$j._":GOTO 10080 
10130 IF r=127 ANO t=O THEN 100S0 
10140 t=t+l 
10150 IF t}cap
+Qec
 THEN t=t-l:GOTO 100BO 
10160 t$=t$+r$:PRINT FN10c$(x
,y
)it$:GOTO 10080 
10170 REN ---------------- validacion ---------------- 


u 


10180 IF alfa%=2 THEN RETURN 
10190 IF alfa
=3 THEN U=t$+STRING$(cap
-LEN(t$)," "): 
RETURN 
10200 FOR numerico
=l TO LEN(t$) 
10210 r$=HIO$(t$,nu.erico
,l) 
10220 IF (r${"O. OR r$}"9") ANO r${}" " THEN fallo%=l 
10230 IF r$="o" THEN punto%=punto
tl 
10240 NEXT numerico
 
10250 IF falloS=l OR punto
>l THEN 10000 
10260 t#=CDBL(VAL(t$)) 
10270 t.=tl
10'decS 
102S0 tl= I NH ti) 
10290 tl=t#!10.dec
 
10300 RETURN 
10310 REN ------------------- fecha ------------------ 


10320 REM la fecha siempre 6 dlgitos 
10330 REM -------------------------------------------- 


10340 IF LEN(fecha$)()6 THEN fecha$="faI10!n:RETURN 
10350 f1=VAL(MID$ifecha$,1,2) 
10360 f2=VAL(MID$(fecha$,3,2)) 
10370 f3=VALiNID$(fecha$,5,2) 
10380 IF fl{l OR f2<1 OR fl}31 OR f2}12 THEN fecha$="f 
allo!" :RETURN 
10390 f4=(f2=1)+(f2=3)+(f2=5)+(f2=7)+(f2=S)+(f2=10)+(f 
2=12) 
10400 IF fl}30 ANO NOT f4 THEN fecha$="fallo!":RETURN 
10410 IF f1}29 ANO f2=2 THEN fecha$="fallol":RETURN 
10420 IF fl}28 ANO 12=2 ANO f3 MOD 4=0 THEN fecha$="fa 
110! " : RETURN 
10425 fecha$=MIO$(fecha$,1,2)+"-"+MIO$(fecha$,3,2)+"-" 
+HIO$(fecha$,5,2) 
10430 RETURN 
10440 REN ------------------------ ficheros ---------- 


10450 RE N 
10460 REM 
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10470 REM 
10480 REi'I 
10490 REI1 
10S00 ROl 
10S10 REI1 -------------------------------------------- 


10S20 REI1 
10S30 REI1 inicio 
10S40 BUFFERS 10 
10S50 longregS=LEN(cadS) 
10S60 OPEN "K",numfil,nomfidatS,nomfiindS,2,longreg% 
10565 longregl=LEN{cadf) 
10S70 FIElO numfil,longregl AS ficS 
10S80 ON tipl 60SUB 10630,10710,10820,10930,11000,1109 
° 
10S90 IF tip%{1 OR tipl)6 THEN 10620 
10600 resl=CuNSÚLIOAr£(numfi
)- 
10610 CLOSE numfi% 
10620 RETlJRN 
10630 REI1 lectura de una clave 
10640 resS=SEEKKEY(nulfil,O,ranl,cla$) 
106S0 IF resl{)O THEN ferror%=res%:RETURN 
10660 ferrorl=O 
10670 num%=FETCHREC(numfil) 
106BO 6ET numfi%.,num% 
10690 cadS=ficS 
10700 RETURN 
10710 REM --- lectura de la clave siguiente 
10720 resl=SfEKKEY{numfil,O,ranl,cla$) 
10730 IF res%()O THEN ferrorl=res%:RETURN 
10740 ferror%.=O 
107S0 resX=SEEKNEXT(numfiS,O) 
10760 IF rest()O AND rest{)101 ANO res%<>102 TH£N ferr 
or%=res%:RETURN 
10770 ferror%=O 
10730 num%=FETCHREC(numfiS) 
10790 6fT numfil,numS 
10BOO cad$=fic$ 
10810 RETURN 
10820 REN lectura de la clave anterIor 
10830 res%=SfEKKEY(numfit,O,ran%,ciaS) 
10840 IF resl()O THEN ferror%=resl:RETURN 
108S0 fem¡rl=O 
10860 res%=SEEKPREV(numfiS,O) 
10870 IF resl()O AND res%{)101 ANO res%{)102 THEN ferr 
or%=res%:RETURN 
10880 ferrort=O 
10890 num%=FETCHREC(numtil) 
10900 6ET numfi%,num% 
10910 cadS=tic$ 
, 10920 RETURN 
, 10930 REI1 ----- borrar un re9istro 
10940 resl=SEEKKEY(numti%,O,ranl,cla$) 
109S0 IF resS()O THEN terror%=res%:R[TURN 
10960 ferror%=O 
10970 resS=OELKEY(numti%,O) 
10980 IF res%()O ANO res%()101 ANO res%()102 ANO res
< 
)103 THEN ferror%=resl:RETURN 
10990 ferrorl=O:RETURN 
11000 REI1 ------ altas de claves 
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11010 resl=SEfKKEY(numtil,O,ran%,cla$) 
11020 IF res%=O THEN terror%=900:RETURN 
11030 ferrort=O 
11040 LSET fic$=cad$ 
11050 resl=ADDREC(numfi%,O,ran
,(la$i 
11060 IF res%<>O THEN ferror%=res
:RtTURN 
11070 terror%=O 
11090 RETURN 
11090 REI1 ------ modlticaci
n de registros 
11100 resS=SEEKK
Y(numfi%,O,ran%,cla$) 
l11iO IF rest{)O THEN ferrort=res%:RfTURN 
11120 ferror%=O 
11130 numl=FETCHR£C(numfi
) 
11140 6ET numfiZ.num% 
11150 LSET fic$=cad$ 
11160 PUT numfi% 
11170 RETURN 
11130 REI1 ----------------- borrado de la pantalla -- 


J 
1: 


11190 REM pri.linS=l linea ult.lin
=ultima linea 
ri.colS=1 colulna 
11200 REH ult.coll=ultima columna 
11210 REM ----------------------------
--------------- 


11220 FOR plS=pri.lin
 TO ult. linl 
11230 PRINT FN1
c$(pri.c
1
,pl%)¡SPC(u!t.col
-prl.col% 
) 
11240 NDT plt 
11250 RETIJRN 
11260 REM ------------- marco de la pantalla --------- 


11270 11$=CHRS(134)+STRING$(87,CHR$(138»+(HR$(140) 
11280 PRINT cl$;ll$ 
11290 FOR pl=1 TD 26 
11300 PRINT CHR$(133);STRING$(87,CHR$(32);CHR$(133) 
11310 N
XT pl 
11320 PRINT CHRS(13S);STRIN6S(87,CHR$(138);CHR$(141) 
11330 FOR pi=1 TD 1 
11340 PRINT CHRS(133),STRIN6$(87," ");CHR$(133) 
11:350 r¡EH pl 
11360 PRINT CHR$(131)¡STRIN6$(87,CHR$(138»;CHRS(137) 
11370 RETVRN 
11380 REI1 ------------------- correcto sin ----------- 


t 


11390 rS="":WHILE r$<>"S" ANO rS()"N" 
11400 r$=INPIJT$(l) 
11410 WENO 
11420 IF r$="S" THEN bien
=l ELSE bien
=O 
11430 RETURN 
11440 REM ------- inlcializacion --------------------- 


11450 cl$=CHR$(27)+"E"+CHR$(27)+"Y" 
11460 OEF FN LOC$(x,y)=CHR$(27)+"Y"tCHR$(32+y)+CHR$(32 
+x) 
11470 RETIJRN 
11480 REI1 c.digitos 10000,fecna 10310,archlvos 1ú440,b 
orrad
 111BO,marco 11260,correcto 113BO,iniclallzacion 
11440 
11500 REM ----- limpia llnea mensaJes ----- 
11510 PRINT FNlo($(S,28);" 



":RETIJRN 


20000 PRINT elS 
20010 PRINT FNloc$(10,10)j"[[ ERROR 
! : Compruebe si 
ei disco del iMpulsor 'A' es el correcto.' 
20020 PRINT FNloc$(10,12) j "Si es correc to pul se iINS) 
en caso contrario calbielo y pulse (CAN)" 
20030 PRINT FNloc$(10,28)j 
20040 GOSUB 11380 
200S0 IF bien%=l THEN PRINT FNloc$(10,28)j"Error "jERR 


-
. ';-
..""-"!;.; 


CREA BAS 
10 GOSUB 11440 
20 GOSUB 11260 
25 PRINT FNlocS(28,14)j:INPUT .Primer numero de factur 
a : ", pr i. hc 
30 PRINT FNlocS(28,14)j"ESPERE UN MOMENTO. POR FAVOR.. 


40 PRINT FNloc$(S,28)j"[[ No toque el teclado !'" 
SO BUFFERS 10 
60 CREATE 2,"a:cclien.tex","a:cclien,key.,2,13S 
70 resS=CONSOLIOATE(2) 
80 CLOSE 2 
90 OPEN "R",1,"a:albaran.tex",S7 
100 FIELD 1,3 AS aS,6 AS bS,40 AS cS,4 AS dS,4 AS eS 
110 LSET aS=" 
120 LSET bS=" · 
130 LSET cS=STRINGS(40," ") 
140 LSET dS=MKSS(O) 
150 LSET e$=MKSS(1) 
160 PUT 1, 1 
170 CLOSE 1 
180 OPEN "R",3,"a:resulen.tex",25 
190 FIELO 3,4 AS rS,6 AS aS,3 AS bS,4 AS cS,4 AS dS,4 
AS eS 
200 LSET d=" 
210 LSET bS=N " 
220 LSET cS=MKSS(O) 
230 LSET dS=MKSS(2):LSET eS=MKSS(pri,fac):LSET rS=MKSS 
(O) 
240 PUT 3,1 
250 CLOSE 3 
251 CREATE S,N a : car ti.tex","a:carti.key",2,67 
252 resS=CONSOLIDATE(S) 
253 CLDSE 5 
260 CHAIN "Ienu 
10000 REM --------- control de digitos---------------- 


10010 REM xS=columna yS=fila capS=capacidad 
10020 REM decS=decilales alfat=nu.erico(l) al fa 
nu.ericos (2) alfanulcom (3) 
10030 REM -------------------------------------------- 


10040 PRINT FNlocS(xS,yS)jSTRINGS(capS+decS+1,N_") 
10050 tS="":t=O:rS="":falloS=O:puntoS=O 
10060 PRINT CHRS(7) 
10070 x1S=d 
10080 PRINT FNlocS(xlS,yS)j:r$=INPUT$(l) 
10090 r=ASC(rS) 
10100 IF r=13 THEN 10170 


. 
GESTI · N 


j" en la linea "jERLj" Llale al servicio tecnico "j:FO 
R g=1 TO 5000:NEXT g:CHA 
IN "Ienu 
20060 IF ferror<>O THEN GOTO 20 
20070 RESUME 20 


10110 IF r<32 OR r>128 THEN 10080 
10120 IF r=127 AND t>O THEN t=t-l:tS=LEFTS(tS,t): PRIN 
T FNlocS(xS,yS)jtSj" _":GOTO 10080 
10130 IF r=127 AND t=O THEN 10080 
10140 t=t+1 
10150 IF t>capS+decS THEN t=t-l:GOTO 10080 
10160 tS=tS+rS:PRINT FNlocS(xS,yS)jtS:GOTO 10080 
10170 REM ---------------- validacion ---------------- 


10180 IF alfaS=2 THEN RETURN 
10190 IF alfaS=3 THEN t$=tS+STRINGS(capS-LEN(tS)," O): 
RETURN 
10200 FDR nu.ericoS=1 TO LEN(tS) 
lQ
to r$=MIO$(t$.ny.
ri(O
,l) 
10220 IF (rS<"O" DR rS)"g") ANO r$<>"." THEN falloS=l 
10230 IF rS=".. THEN puntoS=puntoS+l 
10240 NEXT numericoS 
10250 IF falloS=1 OR puntoS>1 THEN 10000 
10260 tl=COBL(VAL(tS)) 
10270 t#=tl!10'dect 
10280 U=INTC ti) 
10290 tl=tl!10 A decS 
10300 RETURN 
10310 REM ------------------- fecha ------------------ 


10320 REM la fecha siempre 6 digitos 
10330 REM -------------------------------------------- 


10340 IF LEN(fechaS){>6 THEN fecha$="fallol.:RETURN 
10350 fl=VAL(MIDS(fechaS,I,2» 
10360 f2=VAL(MIOS(fechaS,2,4» 
10370 f3=VAL(MIDS(fecha$,4,6) 
10380 IF fl<1 DR f2<1 OR fl)31 OR f2>12 THEN fecha$="f 
alIo!u:RETURN 
10390 f4=(f2=1)+(f2=3)+(f2=S)+(f2=7)+(f2=8)+(f2=10)+(f 
2=12) 
10400 IF fl)30 ANO NDT f4 THEN fecha$="fallo!":RETURN 
10410 IF 11)29 AND f2=2 THEN fecha$="fallo,u:RETURN 
10420 IF fl)28 AND f2=2 ANO f3 MOD 4=0 THEN fecha$="fa 
lIo! u :RETIJRN 
10.430 RETURN 
10440 REM ------------------------ ficheros ---------- 


104S0 REM 
10460 REM 
10470 REM 
10480 REM 


.
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. 
ESTIO N 


10490 REM 
10500 REI1 
10510 REI1 -------------------------------------------- 


10520 REM 
10530 REI1 inicio 
10540 BUFFERS 10 
10550 longreg%=LEN(cad$) 
10560 OPEN "K",numfi
,nomfidat$,nomfiind$,2,longreg% 
10570 FIELO numfit,longregS AS fic$ 
105BO ON tip% GOSUB 10630,10710,10820,10930,11000,1109 
O 
10590 IF tipS{1 OR tipS>6 THEN 10620 
10600 res%=CONSOLIOATE(nulfit) 
10610 CLOSE numfi% 
10620 RETURN 
10630 REI1 lectura de una clave 
10640 res%=SEEKKEY(numfit,O,ran%,cla$) 
10650 IF resS{>O THEN ferror%=res
:RETURN 
10660 ferror%=O 
10670 numt=FETCHREC(numfi%) 
106BO GET numfi%,numS 
10690 cad$=fic$ 
10700 RETURN 
10710 REI1 --- lectura de la clave siguiente 
10720 res%=SEEKKEY(numfi%,O,ran%,cla$) 
10730 IF res
{>O THEN ferrort=res
:RETURN 
10740 ferror%=O 
10750 res%=SEEKNEXT(numfit,O) 
10760 IF res%<>O ANO res
{>101 ANO res
{>102 THEN ferr 
orS=resS: RETIJRN 
10770 ferror%=O 
10780 num%=FETCHREé(numfi%) 
10790 6ET numfi
,numt 
10800 cad$=fic$ 
10810 RETURN 
10820 REN lectura de la clave anterior 
10830 res%=SEEKKEV(nuMfi%,O,ranS,cla$) 
10840 IF resS{>O THEN ferrort=resS:RETURN 
10850 ferrorS=O 
10860 res%=SEEKPREV(numfiS,O) 
10870 IF rest(>O ANO res%{)IOl ANO res
{>102 THEN ferr 
ort=res%:RETURN 
10BBO ferrorS=O 
10890 nUM
=FETCHREC(numfi
) 
10900 6ET numfiS,nuM% 
10910 cad$=fic$ 
10920 RETURN 
10930 REI1 ----- borrar un registro 
10940 res
=SEEK
EY(numfiS,O,ranS,cla$) 
10950 IF rest{>O THEN ferrorS=resS:RETURN 
10960 ferror
=O 
10970 res%=OELKEY(numfi%,O) 
109BO IF res%{)O ANO resS{)101 ANO res%{)102 ANO res%{ 
}103 THEN ferrorS=res%:RETURN 
10990 ferror%=O:RETURN 
11000 REM ------ altas de claves 
11010 resS=SEEKKEY(numfiS,O,ranS,cla$) 
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11020 IF res%=O THEN ferrorS=900:RETURN 
11030 ferrorS=O 
11040 LSET fic$=cad$ 
11050 res%=AOOREC(nuMfi%,O,ran%,cla$) 
11060 IF resS{>O THEN ferrorS=res%:RETURN 
11070 ferror%=O 
11080 RETURN 
11090 REM ------ modlficacion de registros 
11100 res%=SEEKKEV(nuMfiS,O,ranS,cla$) 
11110 IF resS<>O THEN ferror%=rest:RETURN 
11120 ferrort=O 
11130 nUM%=FETCHREC(numfit) 
11140 6ET numfi%,numS 
11150 LSET fic$=cad$ 
11160 PUT numfiS 
11170 RETURN 
11180 REM ----------------- borrado de la pantalla --- 


11190 REM pri. lin
=1 linea ult.lint=ultima linea p 
ri.colt=1 columna 
11200 REM ult.col%=ultima columna 
11210 REI1 -------------------------------------------- 


11220 FOR plt=pri. lin% TO ult.lin% 
11230 PRINT FNloc$(pri.col%,pl%);SPC(ult.col
-pri.colt 
) 
11240 NEXT pIS 
11250 RETURN 
11260 REI1 ------------- marco de la pantalla --------- 


11270 11$=CHR$(134)+STRING$(87,CHR$(138»+CHR$(140) 
112BO PRINT cl$;II$ 
11290 FOR pl=l TO 26 
11300 PRINT CHR$(133);STRING$(87,CHR$(32»;CHR$(133) 
11310 NEXT pl 
11320 PRINT CHR$(135)jSTRIN6$(87,CHR$(138»jCHR$(141) 
11330 FOR pl=1 TO 1 
11340 PRINT CHR$(133i;STRIN6$(B7," ")¡CHR$(133) 
11350 NEXT p 1 
11360 PRINT CHR$(131)¡STRIN6$(87,CHR$(138»;CHR$(137) 
11370 RETURN 
11380 REM ------------------- correcto sIn ----------- 


11390 r$="":WHILE r${}"S" ANO r${)"N" 
11400 r$=INPUT$(I) 
11410 WENO 
lí420 IF r$="S" THEN bienZ=l ELSE bien%=O 
11430 RETlIRN 
11440 REM ------- inicializacion --------------------- 


11450 cl$=CHR$(27)+"E"+CHR$(27)+"Y. 
11460 OEF FN LOC$(x,y)=CHR$(27)+"Y"+CHR$(32+y)+CHR$(32 
+x) 
11470 RETIJRN 
11480 REI1 c.digitos 10000,fecha I0310,archivos I0440,b 
orrado 11180,marco 11260,correcto 11380,inicializacion 
11440 
11500 REM ----- limpia linea mensajes ----- 
11S1r PRINT FNloc$(5,28);" 


· : RETIJRN 



, 


. 
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Gigantes te espero codo martes en tu kiosco. Uno revisto impres- 
cindible poro todo aficionado. Gigantes del Basket te ofrece los 
últimos noticias, los me;ores fotos, los opiniones que te interesan, 
los entrevistos que esperas, los anécdotas que te divierten y los 
los comentarios que te gusto conocer. 
Pídelo todos los semanas, porque Gigantes do lo tollo. 
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Golf, eficacia 
sobre la hierba 


Jaime Dorda 


En más de una ocasión nos habremos preguntado el porqué de las 
grandes sumas ganadas por los grandes del golf. 
Sin entrar en pormenores de difícil evaluación, diríamos que el golf 
arrastra multitudes principalmente en los países anglosajones, y que la.r;¡ 
grandes masas mueven dinero. 
Para el que alguna vez haya pensado esto, y también para el que 
quiera practicar un deporte que requiere una gran concentración y 
precisión, aquí tiene la oportunidad de demostrar sus cualidades. 


CuandO recibimo, e,te juego, pemamo, 
rápidamente en la posibilidad de publicarlo 
debido, principalmente, a que se salía un poco de 
lo recibido hasta la fecha. Ya hemos visto muchos 
juegos, y una gran parte de ellos pertenece al 
grupo de los «guerreros» y otra a los de cartas o 
juegos, digamos, de salón. 
Con el juego Golf, podremos darnos un paseo 
por el campo a la vez que jugamos a este 
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entretenido deporte, sin necesidad de movernos 
de casa. 
Lo principal para lograr un golpe interesante 
reside en un buen cálculo de la distancia y la 
consecuente aplicación de la potencia del golpe. 
Pero tampoco debemos olvidar vigilar el sentido 
del aire, cosa que podremos hacer fijándonos en 
la banderita que veremos en la zona central de la 
pantalla. Según mire ésta a derecha o izquierda, 
de allí vendrá el aire. 
Después de estas consideraciones, podremos 
introducir la cifra de potencia que queramos 
darlc. Esta tendrá que eSJ:ar comprendida entre O 
y 99, indicándola siempre con dos cifras. 
El número de hoyos que podremos realizar 
será de 1 a 6 y variará la dificultad según 
vayamos pasando de uno a otro. 
Entre las dificultades antes mencionadas se 
hayan, como en todo buen campo de golf que se 
precie, los bankers, las zonas de arena y las de 
hierba. En éstas la bola será frenada y hará que 
gastemos otros golpes que penalizarán nuestro 
marcador. 
Tampoco deberemos descuidar la posición 
donde se encuentran los árboles, ya que podemos 
chocar la bola con ellos. 
Otra cosa que puede retrasarnos son las 
cuestas, si la pelota no llega arriba de ellas 
volverá a caer. Retraso nos causará también el 
dar un golpe que saque la bola de la pantalla si 
esto ocurre, tiraremos desde el mismo sitio. 
Al final de cada partida se nos indicará los 
golpes efectuados y lógicamente, ganará el que 
menos haya empleado en toda la partida. 
i i ¡¡Suerte! ! !! 



10 REI1 111 GOLF 
20 aoSUB 2090.REI1 CARACTERFR 
30 I1DDE 1 
40 CLEAR.BDSUEI 1720.REI1 PRESENTACIDN 
SO BOSUB 1260.REI1 AGRUPA LOS CARACTER 
ES 
60 REI1 INICIALIZACIDN 
70 I10DE O 
SO INk O,I.INK 1,24.INK 2,20.INK 3,6. 
INK 4,26.INK S,O.INK 6,2.INK 7,R'INK 
e,9.INK 9,10.INK 10,IS.INK 1I,4.INK 1 
2,26 , 
90 WINDOW .1,1,20,1,4 
100 WINDOW .2,1,20,5,13 


110 PAPER .2,II.CLS.2.PAPER *O,II.CLS 
.0 
120 PAPER .I,7:CLS .I.PEN .I,S 
130 dc-2 
140 BORDER O 
I
O tDYD-OIQtDtal-OIQDlpes-Olsc
eenzO 


160 tovo-tovo+l. IF tovo>ht THEN GOTO 
2680 
170 DII1 mI20,
).FOR a-O TO 19,FOR b- 
O TO 24.NEXT:NEXT 
lBO screen-screen+l 
190 CLS.O,CLS.l.CLS.2 
200 ON sereen GOSUB 2900,2990,3100,32 
20,3360,3530 
210 gelpes-o 
220 REI1 LLAI1ADA AL I1OVIMIENTO DE LOS 
PATOS 
230 IF screen-5 THEN patD
IIKp
140=EV 
ERY 10,1 GOSUB 1220 
240 IF toyo>ht THEN GOTo 26BO 
2SO LDCATE he+l,vo:PEN 10.PRINT CHR.I 
=) 
260 M-(INTIRNDlll*2)+2)*32 
270 h-M/32:LOCATE h,a1.PRINT ehS;.Ma- 
h 
2RO HOVE M,4B:TAG.GRAPHICS PAPER 11.G 
RAPHIC
 PEN 3,I:PRINT CHR.(144) "TAGo 
FF 
290 q-(IRNDII)*9)+4)/10 
300 fuerzaS-CHRS(176)+CHRS(177)+CHRS( 
17B),golpes.-CHRSI179)+CHR.I1BO)+CHR. 
IIBO 
310 LOCATE .I,13,3,PRINT .I,golpes.+" 
O.. 
320 PEN .I,S 
330 eanti
CHR$(226)+CHRSI2271+CHR.12 
28) 
340 LDCATE .1.
, I:.PRINT .1,'IHOYO Num" 
,tov o 
350 LDCATE .I,3,3,PRINT.I,fuerza. 
360 LoCATE .I,3,4,PRINT.I,eBntiS 
370 IF q<-I THEN PEN .I,O:LOCATE .1,1 
O,3,PRINT.I,CHRSCI92) ELSE PEN .I,O,L 
OCATE .I,IO,3,PRINT*I,CHRS(191) 
380 PEN .1,5 
390 CLEAF< INPUT 
400 sb.-INKEYS,IF ..b.-.... THEN GOTo 
O 
O 
410 sc*-INKEY.: JF BC...... III THEN GOTO 41 
O 
420 sb-VAL(sb*):sc-VAL(scS):ea=sb.l0+ 
Bc:LOCATE ttt,6,3:PRINT ttl,ea:IF ea<3 
THEN ea=2 
430 IF 5creen
6 AND x)400 THEN JF ea> 
10 THEN ea""10 
440 golpes=golpe..+l.LoCATE *1,13,3,PR 
INT ttt,gDlpes*; 1I ";golpeslgtot.al=gt.D't. 

1+1 
45050UND 1,70,10,7,O,O,20ISDUND 1,40 
,2,1
,O.O,10 

60 IF dc=2 THEN PEN 2,LOCATE h,al,f'R 
INT eg.:PEN 1 
470 I
 dORO THEN LOCATE h,al,PRINT ej 
S,PEN 1 
480 ea=INTCea'q):IF ea>9q THEN ea=qq 
490 IF ea<3 THEN ea=2 
500 IF mllx+32)/32,kerl=3 THEN ea=INT 
Cea*0.7):IF ea<3 THEN ea=2 
510 IF m«M+32)/32,ta)=4 THEN ea=INTI 
ea'0.5):IF ea<3 THEN ea=2 
520 ab=ea'10 
530 ff=ab 
540 LoCATE ho+l,yo-!:PRINT" ".LDCAT 

 ho+l,yo,PEN 10,PRINT CHR.12SS) 
550 TAG 
SÓO IF deDO THEN aa=xlab=x-ablac=-4 
570 IF do=2 THEN aa=x:ab=ab+x:ac=4:ff 
=ff+x 
580 mn=4B 
590 IF ..ereen=S THEN DI,GRAPHICS PEN 
12,O,GRAPHICS PAPER 6,DI,TAG.MOVE MP, 
300,lF bg=1 THEN PRINT pato4.;,ELSE P 
RINT pato3.1 
600 GRAPHICS PAPER II,GRAPHICS PEN 3, 
O 
610 REM BUCLE DEL MOVIMIENTO DE LA PE 
LoTA 
620 FOR M=aa TO ab STEf' ae 
630 IF screen
6 THEN GOTO 650 
640 IF x>=560 THEN GoTO 1190 
650 IF 
CREEN=6 AND X>S86 THEN GOTO 1 
190 
660 IF "(48 THEN GOTO 1200 
670 lF SCREEN=6 AND mIM/32,26-mn/16)= 


1 THEN GOTo 1170 
680 IF mIM/32,26-mn/16)
1 THEN SCUND 
1.500tll0.1
tlOtlOtl30:I'1OVE x.mnIPRINT" I ., 
;lmn-4Blx-Car+l)*32:TAGOFFILOCATE ar+ 
l,bol,PRINT ef.l.TAG,MOVE M,mn,PRINT 
CHRSCI44)I.GoTO BSO 
690 IF INTlmIM/32,26-mn/16»-S THEN G 
OTO 800 
700 FRAME 
710 IF dos2 THEN IF M<llff-aa)/2)+aa- 
20 THEN mn-Imn+6)-
QRlmn)+7 EL
E mn-I 
mn-6I+SQRlmn)-7 
720 IF dCEO THEN lF x)(Caa-ab)/2)+ab+ 
20 THEN mn-Imn+6)-
QRlmn)+7 ELSE mn=1 
mn-6) +SQR Imn)-7 
730 IF mn>l70 THEN mn-170 
7
0 lF mn(4B THEN mn=4B 
750 IF sereen=6 THEN GOSUB 1140 
76.0 MOVE M, mn 
770 PRINT CHR.(144); 
780 NEXT.GOTo B50 
790 REM BUCLE MOVIMIENTO EN LA CUESTA 
BOO ab=M:FoR M=M To 330 STEP -4 
BIO mn-mn-2:IF mn<4B THEN mn-4B 
B20 IF do=2 THEN MOVE M,mn,PRINT CHRS 
CI44);:SOUND 1,mn'
tl4,10.0tlO.3 
830 IF de=O THEN LOCATE 16,19.TAGoFF, 
PRINT ed.;edS,TAG.MOVE M-16,mn,PRINT 
CHF<.(144);.SOUND l,mn*10,4,IO,O,O,3 
840 NEXT 
850 IF M>560 ANO NoT SCREEN-6 THEN M- 
M-ea*10.MOVE M,48,PRINT CHR.(144);.ge 
1 peszQolpes+l 
86.0 IF SCREEN=6 AND x>564 THEN X=564, 
IF mn<115 THEN mn-11S 
870 IF M<44 THEN M=M+ea*10,HOVE M,4B' 
PRINT CHRS(144);,ge1pes=ge1pes+l 
880 TAGOFF 
B90 IF mllx/32),yo)=2 THEN SOUND 1,30 
,2. 15:LDCATE ho,yo-l:PRINT cdS;cd*:LO 
CATE ho+l,vo,PEN 3,PRINT CHRS(22)+CHF< 
$(I)+CHRSI144)+CHRSI22)+CHR.IO):FOR r 

-I TO 2000,NEXT:do=2,al=22:ERASE m:G 
OTO 160 
900 IF sereen=5 THEN EI,LOCATE .2,S,3 
'f'EN .2,6,PRINT*2,STRING.114,143) 
910 hB=INTlM/32) 
920 IF do=2 AND M<sho*32 THEN bb=ha.b 
e-I 
930 IF do=2 AND M>(ho-I)*32 THEN bb=h 
a+2Ibca=1 
940 IF do=O AND M>(ho-I)*32 THEN bb=h 
a+2:bc"-1 
950 IF do=O AND M<=ho*32 THEN bb=ha.b 
e=-I:IF bb<2 THEN bb=2 
960 IF bb>19 THEN bb=19 
970 IF do=? THEN ea.=cm. 
9BO IF do=O THEN ca.=en. 
990 IF ser

n=6 AND do=2 THEN IF xa=1 
4..AND al=19 THEN LOCATE 15,19,PRINT" 
tooo REM CORRE EL JUGADOR 
1010 FOR xa=h To bb STEP be 
1020 IF xa>l9 THEN Ma-19 
1030 IF screen=6 AND xa>=15 THEN al=1 
B 
1040 LoCATE Ma,al,PRINT ea.,FOR re=1 
TO SO.NEXT,SoUND 1,300,S,IO,O,0,IO,LO 
CATE xa,al,PRINT edS,LOCATE Ma+l,al,P 
RINT ed. 
1050 IF xa)Car+l) AND xa«ar+3) THEN 
LOCATE ar+I,bol:PRINT ef. 
1060 IF do =2 AND mIMa,al)=5 THEN al= 
al-1 
1070 IF do=O AND 


Serie 


. 


<22 THEN al-a1+1 
lOBO NEXT,PEN 1 
1090 do-2 
1100 IF M>ho*32 THEN do-O 
1110 IF do-2 THEN h-IM-12)/32.LOCATE 
h-I,al,PRINT ed.;eh.;ed.,PEN 1 
1120 IF do=O THEN h=IM+B)/32
2,LOCATE 
h,s]:PRINl ciS.PEN 1 
1130 GOTo 350 
1140 IF x>400 AND mn<-115 THEN mn s l15 
liSO IF x>S76 THEN M-S76,ab-M/32.GoTO 
BSO 
1160 RETURN 
1170 IF Ma<2 THEN Ma=2 
l1BO ROUND 1.500. 10. 15,0,0, 301 MOVE x. 
mn: PRJNT"I 11; I mn-48: x-= (ar+l) *32: TAGOFF 
ILDCATE ar+l.bol:PRINT cf*;ILOCATE ar 
+6,bol,f'RINT efS;'LoCATE ar+12,bol-2, 
PRINT efS;.LOCATE Ma-I,al:PRINT ed.;e 
dS;ed.;.TAG,MDVE M,mn,PRINT CHR.(144) 
; ,GOTo B50 
1190 t10VE x.mnIPRINT II 1,; Jaa-abIGDTO 
780 
1200 MOVE x.mnIPRINT" "; I sb=4B:mn-=48: 
GOTO 780 
1210 REH aUCLE MOVIMIENTO DE LOS PATO 
S 
1220 GRAPHICS PEN 12,O.GRAPHICS PAPER 
6,TAG.IF pato-I THEN bg-o'MP=Mp+4,MD 
VE Mp,300,PRINT pBtol.;,ELSE bg=I'Mp
 
xp-4,MoVE Mp,300,PRINT pato2.; 
1230 IF xp>44B OR Mp(144 THEN pato--p 
ate 
1240 TAGoFF,RETURN 
1250 REM AGRUPACIoN DE CARACTERES 
1260 GoTO 1330 
1270 kOS='U' 
1280 FOR qwe
l TO ki 
1290 READ asd 
I
OO ko.=keS+CHRSlasd) 
1310 NEXT q"'
 
1320 RETlIRN 
1330 l,i=II,RESTORE 1530.GOSUB 1270 
1340 efS=ko.,ki=S,RESTORE IS40,GOSUB 
1270 
13S0 ed.=koS,ki=17.RESTORE IS50.GoRUB 
1270 
1360 egS=ko.,RESTORE IS6.0,GoSUB 1270 
1370 ehs-keS,RESToRE IS70,GOSUB 1270 
1380 eiS-ko.,RESTDF<E 1580,GOSUB 1270 


1390 ej.=koS:RESTORE 1S90,GO
UB 1270 
1400 emS=ko.,RESToRE 1600,GoSUB 1270 
1410 en.=koS,ki=9,RESTORE 1610,GOSUB 
1270 
1420 ep.=koS:ki=17,RESTORE 1620,GOSUB 
1270 
1
30 eqS=koS'k1=11,F<ESToRE 1630,GoSUB 
1270 
1
40 erS=keS,kl=3,RERTQPE 1640,GOSUB 
127 


xa 
al 
ca$ a ct$ 
m(ar,bol)=l 
m(to,yo)=2 
m(ban,ker) Matriz del banker. 
= 3 _ 4 Matriz de las matas. 
m(ma'
1- Matriz de la cuesta. . J : 
m(x,y)- N ' era de ho y os a Jugar. 
um tán con 
ht 11 s caracteres, etc., es 
Los bucles, panta a , , o las instrucciones, en .., 
. d R EM aSI com 
sentenCIas e , . . i 
el listado. 
 =- -c- 


aa 
ab 
ac 
ea 
mn 


ff 


do 


Origen de tiro (x) 
Final de tiro (x) . 
Intervalo de recorndo. 
Fuerza del golpe: d de la pelota 
Altura del reco rn o 
(y). . d I recorrido de la 
DIstanCIa e 
P elota. . , d 1 J ' u e go 
. d d e la direcCIon e . 
SenU o . d 
Coordenada (x) del.1 u g a dar. 
Coordenada (y) del jug a or 
Dibujos Y borradores. 
Matriz del árbol. 
Matriz del hoyo. 
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1450 ce$=
c$:RESTORE 16S0:GOSUe 1270 
1460 patcl$=kc$:RESTORE 1660:GOSUe 12 
70 
1470 patc2$=
c$:RESTORE 1670:GOSUe 12 
70 
14GO patc3$=kc$:RESTORE 1680,GOSUe 12 
70 
1490 patc4$=kc$:ki=II:RESTORE 1690:GO 
SUB 1270 
1500 cs$=kcS:ki=17'RESTORE 1700:GOSUe 
1270 
1510 ct$=kc$:ki=O 
1520 RETURN 
1530 DATA 15,10,224,11,8,223,11,e,15, 
8,222 
154Q DATA 32,8,11,32,10 
15
O DATA 15,2,203,11,13,201,22,1,13,15 
,3,200,10,13,202,22,0 
l
O DATA 15,2,207,11,13,205,22,1,8,15 
..3,204,10,13,206,22,0 
1
70 DATA 15,2,207,11,8,208,22,1,8,15 
,3,209,10.8,206,22,0 
1580 DATA 15,2,213,11,8,211,22,1,8,15 
,3,210,10,8,212,22,0 
1590 DATA 15,2,217,11,8,215,22,1,8,15 
.3,214,10,8,216,22,0 
1600 DATA 15,2,221,11,8,219,22,1,8,15 
,3,218,10,8,220,22,0 
1610 DATA 15,10,224,15,8,11,8,222,10 
1620 DATA 15,1,143,8,22,1,15,5,182,8, 
11,15,3,244,10,22,0 
1630 DATA 1
,8,184,8,15
10
22
1
183.2 
2,0 
ló40 DATA 15,8,222 
1650 DATA 185,185,188 
1660 DATA 189,186,186 
1670 DATA 187,187,190 
1680 DATA 190,187,187 
1690 DATA 15,3,250,22
1,15
1,8,249,27 
,O 
1700 DATA 15,2,252,22,1,11,8,251,15,1 

8
253,10,8,254,22,0 
1710 REM PRESENTACION 
1720 MODE 1:INK 3,IS:PEN 3:LOCATE 1,1 
:PRINT STRINGS(39.238),LDCATE 1,2S,PR 
INT STRING$(40,238); 
1730 FDR hh= 1 TO 24:LOCATE l,hh:PRIN 
T CHRS(238):LOCATE 40,hh:PRINT CHRs(2 
38),NEXT hh 
1740 INK 1,I:PEN 1 
J750 INI< 2
2O 
J760 testoS="t1i GOLF" 
1770 
=3:y=3 


1 


,J


3 


1780 
1790 
1800 
1810 
lG20 
lG30 
1840 
1960 
1850 p=xY.:o=vv:PEN 1 
lG60 LOCATE 
;y:PRINT a$ 
1870 FDR n=b TO b-16 STEP-2 
1880 FOR m=
 TO 
+16 STEP 2 
1890 IF TEST(m,n) THEN SOUND 1,20,1,1 
O:GOSUB 1930 
1900 p=p+8 
1910 NEXT m:o=o-10:p=xx 
1920 NEXT n:RETURN 
1930 FOR t=O TD 7 STEP 2 
1940 MOVE p,o-t:DRAWR G,0,2 
1950 NEXT:RETURN 
1960 PEN 2:LDCATE l1,18:PRINT"PDR DOR 
DA & MARTIN" 
1970 FOR az=800 TO 10 STEP -IO:50UND 
l,az,5,15:FOR av=1 TO 10: NEXT:SOUND 
2.az+20,S.10:NEXT:FOR re=1 TO 1000,NE 
XT: INK 2,1: INt: 1,24: PEN 1 
1980 REM INSTRUCCIONES 
1990 LOCATE S,8:PRINT"PARA GOLPEAR LA 
BOLA TIENES QUE":LOCATE S,10:PRINT"P 
ULSAR LA CANTIDAD DE FUERZA QUE":LOCA 
TE S,12:PRINT"QUIERES DARLE <01 A 99) 
":LOCATE S,14:PRINT" SIEMPRE CON DOS 
CIFRAS" ",LDCATE 12, 18: PR INT" PULSA UN 
A TECLA":CALL &BBI8 
2000 LOCATE 15, 4,PRINT"OBSTACULOS" 'LO 
CATE S,8:PEN 3:PRINT CHR$(127);" BUN 
I<ER=suelo con mucha é.r-
na ": LOCATE 5, 
10:PRINT CHRS(222);" HIERBA LARGA,pe 
ro profunda .. :LOCATE 5
12:PRINT 
CHR$(22S);" BAJADA 


xx=6S,yy=240 
a=16* (x-U 
b=399-(y-UU6 
FOR 1=1 TO 7 
aS=MIDSCtestoS,I,I) 
GOSUB 18S0:xx=xx+76 
NEXT l:LOCATE 3,3:PRINT" 


":GDTO 


2010 LDCATE 5,14: PRINT"en arbcl rebct 
a la pelot.a ":LOCATE 5,16:PR 
INT"en hierba y arena pierde fuerza 11 
2020 LOCATF 7, 18:PRINT"PULSA UNA TECL 
A PARA SEGUIR",CALL !,BBI8 
2030 LOCATE 5,8:PRINT"Si la pelota se 
sal e del campo ": LOCATE 5,10: PRINT" 
vuelves a tirar del mismo lugar":LOCA 
TE 5
 12: PFUNT"anot.andote un punto de 
mas;" 
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 GOLPES .1 
FUERZA 32 
. : .- 
.... ..L -( 
-( 
1- 
X ..L 

 


k 


@
 


::
=
:
i






:}
"
__" _ 


--
;


I?
=



-::-

 


2040 LOCATE 3,14:PRINT CHR$(191):LOCA 
TE 5, 14:PRINT"viento a favor en ambos 
sentidos":LOCATE 7
 15:PRINT"del jueg 
c (a izq, ya der.) ",LOCATE 3,16:PRIN 
T CHR$(192) :LDCATE S,16:PRINT"vientc 
en contra en ambos sentidos" 
20
0 LDCATE S,18:PRINT" CUANTOS HOYO 
S QLIIERES JUGAR ":LOCATE 16,2O:CLEAR 
INPUT:INPUT "de 1 a 6 ",ht 
2060 IF ht<1 DR ht>6 THEN GOTO 2000 
2070 CLS,INK 3,2O:RETURN 
20S0 REM CARACTERES 
2090 SYMBDL AFTER 175 
2100 SYMeOL 176,234,138,136,202,138,1 
38
138
142 
2110 SYMBOL 177,238
138,13G,206,140
1 
3G,138,234 
2120 SYMBOL 178,238
42,42,78,74
138,1 
38,234 
2130 SYHBOL 17q
23G
13G,138
13G,234,1 
70,170,238 
2140 SYMBOL lBO,142
138,138
142
136
1 
36,136
232 
2150 SYMBOL 181
238
136.136,206,130,1 
30,130,23G 
2160 SYMeOL 
2170 SYMeDL 
2180 SYMBOL 
2190 SYMeDL 
2200 SYMBOL 
2210 SYMeOL 
2220 SYMF<OL 
2230 SY
leDL 
2240 SYMeOL 
O 
2250 SVt1BOL lql,12G
224
152,132
lq4,1 
77
142,128 
2260 SYMBOL 192
1
7
25.33
67,141,113, 
1 
2270 SYMBOL 193,0,255
170,170
170
0
0 
.0 
2280 
Yt1BOL 194
128
128
128
128
128
1 
28,128,128 
2290 SYMeOL 
2300 SYMBOL 
2310 SYMBOL 
2320 SYMBOL 
O 
2330 SYMBOL 203,6,0,0,0
0
3,72,204 
2340 SYMBOL 204,0,128,184,128,128,0,0 
,0 
2350 SYt1BOL 205,192,0
0,56
56,64
12O, 
56 
2360 SYt1BOL 206
56,56
40
40
104,72,0, 
O 
2370 
2380 
2390 
2400 
2410 
"420 


SYMeOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMOOL 


182,0,6,6,0,56,40
40,40 
183,0,0,4,24,8,8,8,0 
184
0
0
0,0,36
40,24,24 
lG5,O,O,0,0,G,44,112,O 
186,0,0,0
0
16,52,14,0 
lG7,0,0,0,16,16,84,56,0 
188,0,0,12
10,6G
124
56 
189,0,0,48,80,34,62,28,0 
19(1
0,24,24
153
90
60
60
 


195,O,8
8,42,62
34,62,O 
200,0,0,56,0,0,0,0,0 
201
0
0,0
48
48
0,60,58 
202,56,58,42,42,106,72,0, 


207
0
0
0,0,0,0,72
204 
208,3,0,O,56,
6,2,6O,56 
209
0
1,57
I,I,0
0
0 
210,0,0,28,0
O,O,0,64 
211,0
0,0
12
12,0,60,92 
212,28,q2,
4,84,86,18,O,O 


2430 SVt1BOL 213,96,64
0,0,0, lq2.18,51 
2440 SYMBOL 214,0,0,56,0,2,2,2,2 
2450 SYMBOL 215,0
0,0,48
48
0
6O,48 
7460 SYMBOL 216
50
50,50,16,16,40,0,0 


2470 SYt1BOL 217,0,0,0,3,0
0
68
102 
2480 5Vt1BOL 218,0,0,28,0,64,64,64,64 
2490 SYMBOL 219.0
0
0,12,12
0,60
12 
2500 SVt1BOL 220
76,76,76,8,20
34,0,0 


2510 SYMBOL 221,O
0
0,lq2,O
0,66
lq8 
2520 SVMBOL 222
16.84,53,202,16,44,11 
8,92 
¿S30 SYHBOL 223,G4,60
24,16,16,16
16, 
16 
2540 SVt1BOL 224
16
16
16,16,16,16,56, 
124 
2550 SYHBOL 225,1,2
5,10,21.42
B5
170 
2
6O SYMBOL 226,0,0,236,164,164,164,1 
64
228 
2570 SVMBOL 227
0
0
56,40
40,56,40,40 
2580 SYMBOL 228,0,0,119,85,119,17,17, 
17 
2590 SYt1BOL 249,3
0,0,0,0,4G
4G 
2600 SYMBOL 2
O,3,12,24,48,96,192,128 
,48 
2610 
2620 
2630 
2640 
2650 
126 
2660 RETURN 
2670 REM PUNTUACION 
2680 MODE I:PEN 3:PAPER O,LDCATE 1,1: 
PRINT STRING$(39,238):LOCATE 1,2S:PRI 
NT STRING$(40,238); 
2690 FOR hh= 1 TD 24:LOCATE l,hh:PRIN 
T CHR$(238):LOCATE 40,hh:PRINT CHR$(2 
381 ,NEXT hh 
2700 media=gt.otal/Cteyo-l) 
2710 LOCATE 8,8:PEN I:PRINT '1 Numero de 
hoyas jugados "; ht 
7720 LOCATE 8
 11: PRINT "Numera de gol p 
1?S dados ";gtatal 
2730 LOCATE 5, 14:PRINT"'La media de go 
lpes por hoyo";USING "tUt, .WW";media 
2740 LOCATE 6,20:PRINT"Te atreves a o 


SYMBOL 
SYMEIOL 
SYMeOL 
SYMBOL 
SYMBOL 


251
0,0,0
0
120,0,0,0 
252,O,O
24,24,24.36,66,0 
253
0
0
0,0,0,24,24,O 
254,224,0,0,0,0,0,0,198 
2S5
66,66,66,66,66,66,66, 



tra partida s/n lO 
27
0 aS=INKEVS 
'Z760 ENT --1,2,6,10 
2770 kj=INT(RNDtIOO)+IOO,SDUND I,kj.l 
5.8,1:S0UND 2,kj+200,15,8 
2780 SCUND 3,(INT« RNDtIOOO))+SOO),1 
S,8 
2790 IF aS="" THEN ODTD 27S0 
2800 IF aS-lis" OR aS=IIS" THEN GOSUB 2 
8S0,DRIOIN O,O,FDR ik=O TD 200 STEP 2 
,PLDT O,400-ik,2,DRAW 640,400-ik,2'PL 
DT O,ik,DRAW 640,ik.2,NEXT,ODTD 40 
2810 DRIOIN O,O,FDR ik=O TD 200 STEP 


2 


2820 PLOT 0,-tOO-ik,3:DRAW 640,400-ik, 
3 
2830 PLDT O,U:oDRAW 640,ik,3,NEXT,INI< 
3,I,PAPER O 
2840 END 
2850 INK 1,26:INK 2,7:INK 3,19 
28bO FDR n= 36 TD 3 STEP -1 
2870 LDCATE n,23,PRINT csS+ctS+cdS; 
2880 FDR r=1 TD 60,NEXT,SDUND 1,300.
 
,10,0,0,10:FOR r=1 TO 30:NEXT 
2890 NEXT,RETURt4 
c900 REM pamtalla 1 
2910 ar=19;bol=10;al=22:ho=11:yo=24:m 
Cho,yo>=2 
2920 LDCATE 1,24,PEN 10,PRINT STRINOS 
(20,127),LDCATE 1,24:PRINT CHRS(22)+C 
HR$(I)+CHRS(IS)+CHR$(8)+STRINOS(20, 12 
6) +CHRS (22) +CHRS (O) 
2930 LDCATE 1,2S,PEN 10:PRINT STRINOS 
e20,127>; 
2940 LOCATE *2,4,2:PRINT *2,ceS;SPCe
 
>;crS;SPCe5>;cpS;SPCe3>;crS 
2950 LOCATE *2,1,5
PRINT *2,crS;SPC(3 
J;CpS;SPC(SJ;ceS;SPC(I>;crS;SPC(3:;cp 
S 
2960 LOCATE #2,1,G:PRINT W2,SPCe2>;ce 
S;SPCe3>;cpS;SPCe6>;ceS 
2970 ban=14:ker=24:mCban,ker>=3:meban 
+1,ker>=3:meban+3,ker)=3:LOCATE ban,k 
er,PEN 4:PRINT STRII«3S(3.127) 
2980 .RETURN 
2990 F:EM pa.ntalla 2 
3000 ar=14:bol=10:al=22;ho=9:yo=24:m( 
ho,vo>=2 
3010 LDCATE 1,24:PEN 10,PRINT STRINOS 
(20,127).LDCATE 1,24:PRINT CHRS(22)+C 
HRS (1)+CHR$(IS)+CHR$(8)+STRINO$ (20, 12 
6) +CHR$(22) +CHR$(O) 
3020 LOCATE 1,25:PE"N 10:PF:INT STRINB. 
e20, 127); 
3030 ban=S: J
er=24: mCban, J:er)=3: m(ban+ 
1,ker>=3:meban.3,ker>=3:m(ban+9,ker)= 
3: m eban+l0, '
er) =3: m (ban+1!, ker > =3: m (b 
an+12,ker>=3:LOCATE ban,ker:PEN 4:PRI 
NT STF:IN6$(
,127>:LOCATE ban+l0,ker:P 
RINT STRINO$(4,127) 
3040 LOCATE "2,1,3:PRINT *2,SPC(3J;cr 
S;cqS;5PC(1);crS;SPCe3J;cpS;SPC(4J;cr 
$ 
"3050 LOCATE W2,1,4:PRINT W2,SPC(1) ;cp 
$ 
3060 LOCATE .2,I,S:PRINT W2,SPC(8);ce 
$ 
3070 LDCATE 
2,I,6:PRINT 
2,SPC(3);cp 
$ 
3080 LOCATE W2,I,G:PRINT *2,SPC(5)¡ce 
$jSPC(5);crSjSPC(6);cpS 
3090 RETURN 
3100 REM pantalla 3 
3110 ar=12:bcl=10:al=22:hc=ll:yc=24,m 
(ho,yo)=2:LOCATE ar+l,bol:PRINT cfS 
3120 LDCATE 1,24,PEN 10:PRINT STRINO$ 
(20,127):LDCATE 1,24:PRINT CHR$(22)+C 
HR$(I) +CHR$(IS) +CHR$ (8) +STRINO$ (20, 12 
6)+CHR$(22)+CHR$(0) 
3130 LDCATE 1,2S:PEN 10:PRINT STRINO$ 
e20,127) ; 
3140 ban=14:ker=-24:mCban,ker)=3:meban 
+1,ker>=3:meban.3,kerJ=3:LOCATE ban,k 
er,PEN 4:PRINT STRINO$(3,127) 
3150 meban-5,ker)=-3:m(ban-4,kerJ-3:LO 
CATE ban-S, I:er :PRINT STRINO$ (2,127) 



 


3160 LDCATE 
2,I,2:PRINT 
2,cp$;SPC(2 
);cpS;cpS;cpS;SPCe4J¡crS 
3170 LDCATE 
2,3,3:PRINT 
2.cp$;SPC ( 
12>;crS 
3180 LDCATE 
2,2,4:PRINT 
2,cp$;SPC(1 
)¡ceS;cpSjSPC(lJ¡crS 
3190 LDCATE 
2,I,7,PRINT 
2,ce$;Sf'C(1 
O);ceS;8PC(5)¡ce$ 
3200 LOCATE W2,1,9:PRINT *2,ce$;SPC(1 
);cpS;SPCelJ;cfS;SPC(IJ;ceS;SPC(2)¡cr 
$ 
3210 RETURN 
3220 REM pantalla 4 
3230 ar=6:bol=21:m(ar,bolJ=I:m(ar,bcl 
-1)=I:m(ar,bol-2J=1:LOCATE ar+1,bol:P 
RINT cf$ 
3240 al=22:ho=14:yo=24:m(ho,yo)=2:LOC 
ATE hc+l,yCJ 
32S0 LDCATE 1,24,PEN 10,PRINT STRINOS 
(20,127):LDCATE 19,24:LDCATE 1,24:PRI 
NT CHR$(22)+CHR$(I)+CHR$(ISI+CHR$(8)+ 
STRINO$(20.126)+CHR$(22)+CHR$(0) 
3260 LDCATE 1,2S:PEN 10:PRINT STRINOS 
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(20,1271 ; 
3270 ban=17:ker=24:m(ban,ker)-3:m(ban 
+1,ker)a3:LOCATE ban,kerlPEN 4:PRINT 
STRINOS 12,127) 
3280 LDCATE 
2,I,2,PRINT 
2,crSlcr$;S 
PC(8)¡crS 
3290 LDCATE 
2,3,3'PRINT 
2.crS;SPC(1 
);cr$;Sf'C(3);cpS;SPC(31;cqS;cq$;Sf'C(1 
);cqS;cq.;cq. 
3300 LDCATE 
2.6,S:PRINT 
2,cr$;SPC(
 
>;cqS;SPC(3)¡ceS¡SPC(1>;cq.;cq. 
3310 LDCATE 
2,10,6:PRINT 
2,cr$;Sf'CI 
6>jcr. 
3320 LDCATE 
2,4,7,PRINT 
2,ce$;SPC(7 
J¡ceS 
3330 LDCATE 
2,18,S,PRINT 
2,cp$ 
3340 LDCATE 
2,3,9:PRINT .2,ce$;SPC(2 
);cpS;SPC(2J¡ce$;SPC(6>¡cpS_ 
33S0 RETURN 
3360 REM pantalla S 
3370 LDCATE 1.24:PEN 10,PRINT STRINO$ 
(20.127):LDCATE 1,24:PRINT CHR$(22)+C 
HRS(I)+CHR$(I
)+CHR$(8)+STRINO$(20,12 
6) +CHR$ (22) +CHR$IOI 
3380 LDCATE 1,2
,PEN 10:PRINT STRINGS 
(20,127> ; 
3390 ar=12:bol=20:m(ar,bol>=1Irn(ar,bo 
l-I>=1:m(ar,bol-2)=1:LOCATE ar+l,bol: 
PRINT cf$ 
3400 rna=6:
a=24:m(ma,ta)=4:m(ma+l.
a) 
=4:m(ma.2,
a)=4:m(ma+3,ta)=4:LOCATE m 
a,ta,PEN 8:PRINT 
TRINO$(4,222) 
3410 al=22:ho=16:yo=24Im(ho,yo)-2ILDC 
ATE he+1, yo 
3420 ban=14:ker=24Im(ban,ker)
3Im(ban 
+1,ker)a3:LOCATE ban,ker:PEN 4:PRINT 
STRINO$ (2,1271 
3430 LDCATE 
2,2,2,PRINT
2,cp$;CHR$(1 
84);SPC(I);STRINO$(14,222) 
3440 LDCATE 
2,2,3:PRINT
2,SPC(2);CHR 
$(222) 


- 


_::-:=--:;:=:=::.:;. 


34
0 LDCATE 
2,19,4:PRINT
2,cp$; 
3460 LDCATE 
2,I,S'PRINT
2,cq$ISPC(I) 
;cq$"PEN 
2,8:PRINT
2,CHR$(222);Sf'C( 
14);:PRINT
2,CHR$(222) 
3470 LOCATE 
2,S,6:PRINT
2,STRINOS(14 
,222) 
3480 LDCATE 
2,8,7'PRINT
2,CHR$(184)1 
SPC(7);CHR$(184);SPC(I);CHR$(184) 
3490 LDCATE 82.3,8,PRINT
2,CHR$(184); 
SPC(6);CHR$(222) 
3
00 LOCATE *2,2,9:PRINTW2,cfS;CHR.(1 
0)¡CHRSel0J¡SPCel>;CHR.(222);SPCelJjc 
pS;SPCelJ;CHF:S(184);SPC(3J;cpS;CPS;cp 
S¡cpS;CHRS(184)¡CHR$(222)¡SPC(1);cfS 
3SI0 LDCATE 
2.S,3.PEN 
2,6:PRINT
2,S 
TRINO$(14,143):LDCATE 
2,
,4:PRINT
2, 
STRINO$(14,143),LDCATE 
2,S,S:PRINT
2 
,STRINO$(14,143) 
3S20 RETURN 
3530 REM pan
alla 6 
3540 PEN 10,LDCATE 16,20:PRINT CHR$(2 
2S):LDCATE 17,20:PRINT STRINO$(4,127) 
,LDCATE 17.20:PRINT CHR$(22)+CHR$(I)+ 
CHR$(lS)+CHR$(8)+STRINO$(4,126)+CHR$( 
2ZI+CHR$CO):PEN 10:LDCATE IS,21:PRINT 
CHR$(22
),LDCATE 16,2I,PRINT STRINO$ 
(5,127) 
3SS0 LDCATE 14,22:PRINT CHR$(225),LDC 
ATE IS,22:PRINT STRINOS(6,127),LDCATE 
13,23:PRINT CHR$(225):LDCATE 14,23,P 
RINT STRINO$(7.127):LDCATE 1,24:PRINT 
STRINO$(20,127) 
3S60 LDCATE 1,24,PRINT CHR$(22)+CHR$( 
1) +CHR$ <lS) +CHR$ (8I+STRINO$1I2,126I+C 
HRS(22)+CHR$CO):PEN 10:LDCATE 1,2
,PR 


Serie 


. 


INT STRINO$(20,127)¡ 
3
70 al=22:ho=17:yo=20:mCho,yo)=-2ILDC 
ATE ho+l,yo 
3580 m(15,t9J=5:meI4,20>=5Im(13,21)c5 
:m(12,22)=5:m(II,23J=5:m(15,20)-
:mel 
2,23>=5:rn(13s22J=5:m(14.21)
5 


3590 ar=5:bol=18:m(ar,bol)-1Im(ar,boJ 
-1)=-'J.:m(ar.boJ
2)=I:1 OCATE ar+l.boleP 
RINT cf$:LDCATE (ar+6),bcl,PRINT cf$: 
'1}( (ar+5) ,bol )=I:m «ar+5), (bol-1) )=1: m 
«ar+SJ, (bol-2> J =1 : me (ar+
), (bol +1 > J 
=\ 


3600 meear+l1),ebol-1J)=I:m(car+l1), 
(bcl-2))=I,LDCATE (ar+12), (bcl-2):PRI 
NT cf$ 
3610 ma
6:ta=24:mema,ta)=4:m(ma+l,
a) 
=4:m<ma+2,ta)=4:mema
3,ta)=4:LOCATE m 
a.ta,PEN 8:PRINT STRINO$(4,222) 
3620 PEN 82,8,LDCATE 
2,I,I:PRINT 
2, 
STRINO$(\2,193),FDR ns= 2 TD 8:LDCATE 
#2,1
ns:PRJNT *2,CHR$(194J;;NEXT:
OR 
ns= t TO 8:LOCATE *2",13,ns:PRINT "2, 
CHRS(194),NEXT:LDCAT
 
2,I,9:PRINT 
2 
,STRING$(12,193) 


.1..3 


r 



 


t 


, 


3630 l.OCATE "2",Z",4:PRINT W2,crS;c:pS;c 
rS;cpS¡cr$;STRIN6S(3,32)¡crS;cp$;cr$; 
:LOCATE .2",2,7:PRINT #2,cr$;cp$;c:rSjc 
p$;c:rS; STF:INGS e:, 32J ; crS;cpS¡ c:r$; :LOC 
ATE #2
13.6:PRINT "2
c:dS; 
3640 LOCATE #2',14,2:PRINT W2,cp$¡" tI; 
!:I-IR$(722);cp$;cq$jc:qS;cqS;:LOCATE "2, 
14.4:PPINT #2
cpS;cqS;ceSj:LOCATE "2, 
lQ.5:PRINT #2,CHR$(222):LOCATE #2,14, 
e:PRINT #7,cp$;cq$;c:.rS;cq$;cq$;" n;cq 
$: 
3/,50 FDR j j'
 1 TD 360 STEP 2, DEO: PLDT 
24-:¡.260
6:DRAW 240+3S*SIN(jj) 
260.2S 
tC')S', jj) :NEXT'FDR jj= 1 TD 360' STEP 2 
:MOVE 740,260:PLOT 240+37*SIN(Jj),260 
+77*COS(jj)s9:NEXT:LOCATE #2,8,5:PEN 
*2
2:PRINT *2,CHRS(22);CHRSel);CHRSel 
95) ;CHRS(22) :CHR$ (O): 
3660 RETlIRN 



 r 


Poro que tus dedos 
noreo!tcenelrrabajoauro, M H_AMS- 
TRAD lo hace por h
 Todos los lisiados que incluyan 
este logofípo se encuentran o tu dIsposición en un C05- 
seffe mensual, sohcítanoslo 
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Si bien existe en el mercado 
una amplia variedad de «plotters» 
o trazado res gráficos, a la hora 
de la verdad son muy pocos los 


Al loro 


De todos es sabido que los 
Amstrad CPC, dotados de 
unidad de disco -CPC 
664/6128-, cuentan con la 
alternativa de almacenamiento de 
cintas de cassette. De este modo 
resultará más económico el uso 
de software comercial en este 
medio, por el bajo costo de su 
soporte. 
Aunque es posible utilizar 
un aparato de cassette 
doméstico de 
audio para 
esta utilización, 
resultará más 
conveniente por 
su mayor 
fiabilidad, el uso 
de un cassette 
específico para 
ordenador que, 
entre otras cosas, 
reproducirá y 
grabará la señal de 
audio del ordenador 
en su forma natural 
onda cuadrada, 
evitando la 
suavización de la 


J 
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que funcionan en la gama 
Amstrad CPC, debido a la falta 
del octavo bit en su conectar 
«Cemronic» o paralelo. El que 
presentamos en estas páginas es 
obra de la casa alemana «Fisher 
Technich y está diseñado para 
funcionar en los CPC sin ningún 
problema. Su manejo es muy 
sencillo y permite la sustitución 
de su rotulador por otros de 
diferentes colores. De su 
distribuición en exclusiva en 
,España se encarga Master 
Computer: Plaza de Cristo Rey, 3. 
28040 Madrid. Y será vuestro por 
63.728 ptas. 


onda producida por los aparatos 
convencionales de audio. En la 
foto podéis ver el Dynadata 
Compucorder que cumple lo ya 
expuesto, y que encontraréis en 
Micro Ware: Clara del Rey, 50. 
28002 Madrid. Al precio de 7.950 
ptas. 
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El juego completo 


Amstrad Consumer 
Electronics parece que se está 
dando cuenta de que no se puede 
tomar nada en serio después de 
lanzar el pcw como ordenador 
de gestión. Así lo demuestra la, 
cada vez más, amplia variedad 
de software del tipo arcade que 
existe para este micro. Por su 
concepción original, el PCW 
adolece de un conector joystick 
para acoplarle este periférico y 
dar un respiro al sufrido teclado. 
El problema, lo solucionó 
primero DK'Tronics con su 
interface de joystick, pero ahora 
nos llega de la mano de Master 
Computer: Plaza de Cristo Rey, 3. 
28040 Madrid. Este equipo «pret 
a-porten) denominado Joycestick, 
listo para jugar, al precio de 
7.500 ptas., que incluye el 
mismo joystick, el interface 
adecuado y por si fuera poco, el 
mítico Colosus Chess en versión 
PCW, como demostración de su 
funcionamiento. 


.; 


i1<.,). 



Bytevisión 


V uelve la digitalización de 
imágenes de la mano de Micro 
World: Zurbano, 76. 28010 
Madrid. En esta ocasión traemos 
el Vidi, un vídeo digitalizador no 
sólo apto para aplicaciones 
profesionales de montajes de 
vídeo sobre los ordenadores 
Amstrad CPC, sino además, 
para los aficionados que 
encontrarán en él un dispositivo 
con infinidad de posibilidades 
creativas. Para su funcionamiento 
será necesario utilizar como 
fuente de imagen una cámara de 
vídeo, o un mismo vídeo cassette 
dotado de una salida de vídeo 
compuesto sin modular (no RF). 
La señal es digitalizada por el 
interface y almacenada en un 
buffer de 16 K para su 
visualización en la pantalla del 
monitor procesado por el 
software que se incluye en el 


PCW políglota 


e asi con toda seguridad 
podríam s estar de acuerdo en 
que la impresora que utiliza el 
Amstrad PCW es demasiado 
lenta y además, no da opción a 
utilizar otra distinta. Para paliar 
este problema, la misma casa 
Amstrad comercializa este 
interface RS 232-Centronics 
conectable al bus de expansión 
trasero del PCW. Con ello, no 
sólo se consigue incorporar 
cualquier tipo de impresora al 
ordenador, sino además, la 
posibilidad de comunicarle con 
otros ordenadores o convertirlo 
en terminal no inteligente de 
sistemas mucho más complejos, 
gracias al protocolo RS-232 C. El 
interface lo podréis obtener por 
20.050 ptas. en cualquier 
distribuidor Amstrad. 
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eqUipo. Permite grabar tanto en 
modo 1 como en el modo 2 y es 
capaz de digitalizar una imagen 
en tan sólo 0,3 segundos. En el 
modo O digitaliza 16 sombreados 
en color en menos de 4 
segundos. Cuenta con 16 niveles 


Arte moderno 


Si lo que te va es el dibujo, 
no seas antiguo y pásate a los 
lápices ópticos. Sobre la pantalla 
de un PCW y con la ayuda de 
este Light Pen de la casa inglesa 
Electric Studio serás capaz de 
obtener creaciones artísticas 
inimaginables. Cuesta tan sólo 
19.995 ptas. en Master 
Compmer: Plaza de Cristo Rey, 3. 


I .. 


independientes de contraste y 
brillo y es posible el volcado de 
la pantalla a impresora así 
como la variación de los colores. 
Para los interesados en el 
equipo. su precio es dI' 33.500 
ptas. 


28040 Madrid. Y permite dibujar. 
con distintos tipos de gr'ueso de 
línea, spray, amplia gama de 
tramas, borrar, etc. El dibujo 
realizado podrá ser almacenado 
en disco como fichero o incluso 
volcado en la impresora. Su manejo 
resultará muy sencillo gracias a 
los numerosos menús de ayuda 
en castellano qul' se exponen en 
forma de ventana dentro de la 
pantalla sin alterar el dibujo. 
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Diccionario 
del IBM Basic 


Ficha técnica 
Autor: David A. Lien 
Páginas: 22
 
Editorial: Elzsa, S. A. 
Precio: 2.100 pts. 
Es este un libro que debiera 
encontrarse en las bibliotecas de 
todas aquellas personas que 
piensen en adquirir un Amstrad 
PC. 
La razón es muy simple. El 
Gem Basic de ,Locomotive 
Software, incluido con cada 
Amstrad PC, es, sin duda, una de 
las mejores implementaciones del 
lenguaje que se han visto. No 
obstante, adolece del grave 
inconveniente de no ser estándar. 
En el campo del Basic para PCs, 
el que reina indiscutido es el 
BasicA de IBM, y es el que usted 
tendrá que usar para desarrollar 
cualquier aplicación compatible 
IBM. De esto justamente se ocupa 
este libro. 
La información proporcionada 
de cada orden es la siguiente: 
1. El término en sí mismo: Es 
un término localizable en 
programas escritos en Basic o 
empleado para controlar dichos 
programas. 
2. Categoría del término: Los 
términos del Basic se dividen 
en cuatro categorías: 
Mandatos: palabras que 
dicen al ordenador que 
ejecute una acción inmediata 
con un programa, por 
ejemplo RUN, LIST, etc. 
Todos los mandatos pueden 
formar parte de un programa 
o emplearse como sentencias. 
Sentencias: ténninos que 
aparecen en los programas y 
contienen las instrucciones 
detalladas para que el 
ordenador tome sus 
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decisiones y realice su tarea 
Ejemplo: PRINT A,B,C. 
Funciones: términos que 
pasan el control a 
microprogramas en lenguaje 
de máquina. Realizan 
«funciones» más o menos 
complicadas, tales como 
cálculos trigonométricos, 
raíces c.uadradas, etc., y 
sirven como componente de 
una sentencia: X = TAN(Y) 
PRIN LOG(A). 
Operadores: caracteres que 
generan funciones de 
comparación o de cálculo. 
Ejemplos: coma, dos puntos, 
signo igual, etc. 
En este libro, los mandatos, 
sentencias y funciones 
aparecen en orden alfabético. 
No así los operadores que 
aparecen en una sección 
particular al final del libro. 
3. Símbolo del disco que 
acompañará a aquellos términos 
del Basic de diskette. 
4. Comentarios descriptivos de 
introducción sobre el término, 
indicando qué es y qué hace. Éstos 
irán seguidos por 5 el formato del 
mandato, sentencia o función, así 
como una breve descripción y 
explicación de cada uno de los 
argumentos del formato. 
6. Programa de ejemplo: 
Permite al usuario introducir un 
programa en el ordenador para ver 
cómo se emplea un término. Estos 
programas se muestran tal como 
aparecerían una vez tecleados, no 
después de listados. Por ejemplo: 
30 ? "A". 
Como colofón del libro, se 
ofrecen una serie de tablas de 
utilidad, que el atento lector 
encontrará indispensables. 
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El libro que nos presenta en esta 
ocasión la editorial Elisa, es un 
potente manual en el que 
encontraremos muchas de las 
«claves» para poder trabajar a 
fondo en el interior de nuestro 
Amstrad. No, no nos estamos 
refiriendo al trabajo con 
destornillador, que dejamos a los 
aficionados al hardware. Se trata 
de aprender cómo aprovechar al 
máximo todas las posibilidades que 
se esconden bajo los circuitos del 
Amstrad, pero desde el teclado. 
El libro consta de siete capítulos, 
un anexo y un índice alfabético 
que nos ayudará a movernos 
rápidamente, a través de las 218 
páginas del libro. 
Los capítulos en los que Daniel 
Martín, autor del libro, ha 
estructurado el enonne campo que 
la obra intenta abarcar, son: Basic, 
lenguaje Máquina, software 
interno, trucos y astucias, y 
conecto res y coneXIOnes. 
U na de las secciones más 
importantes que el libro 
contempla, es la de software 
interno. En este capítulo, se nos 
muestran una buena serie de 
rutinas del sistema. Este hecho 
supone un nuevo avance por 
desvelar los secretos que se 
esconden en la Rom superior e 
inferior de los CPC. 
En este mismo artículo se 
recogen una buena parte de las 
variables del sistema, hasta ahora 
también desconocidas. 
Por otro lado, la parte dedicada 
al Basic, menos de 20 páginas, 
dice poco más de lo que puede 
encontrarse en el manual de 
cualquiera de los PCP. 



Esta es la oferta del año, 
todo un año de AMSTRAD I 
Semanal por sólo 
6.175 ptas. 50 números 
que te salen a un precio 
increíble: 123 ptas. cada 
uno. 


Ahórrate 3.500 ptas.: un 35 %. 


Aprovéchate. Una oferta 
así sólo se presenta una 
vez al año. 


[oferta váJida sólo para España. 
hasta el 28 de febrero de 1987). 
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